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Die aktuelle 

Shareware-Buchserie 

vom 

PD-SERVICE LAGE 

Wir wahren das Shareware-Konzept, denn durch unsere neue 
Buchreihe, in der Programm-Anleitung und Shareware-Diskette 
für nur 15,00 DM erhältlich sind, wollen wir Anwender von 
der Leistungsfähigkeit dieser Shareware-Programme 
überzeugen, um die Registrierungsbereitschaft zu erhöhen. 

Ein neues 

Shareware-Konzept 

Das Lage Journal 
Top-Programm 

Neu sind folgende Titel: 

AS - EASY - AS 

(die Tabellenkalkulation) 

QEDIT ADVANCED 

(beste Texteditor vom Sharewaremarkt) 

PAINT SHOP für MS-Windows 3.0 

( Grafik Zeichen- & Konvertierungsprogramm) 

Buch mit Shareware-Diskette zusammen nur 15,- DM 



Unsere besonderere Leistung für Shareware-Programmierer und Benutzer 
ist der Registrierservice, denn bei uns erhalten Sie die Vollversionen 
weltweit bekannter und beliebter Shareware-Produkte, z.B.: 


PAINT SHOP f. MS-Windows 3.0 72.00 DM 

AS-EASY-AS 112.00 DM 

FINGERPAINT V. 4.1 56.00 DM 

FILE EXPRESS V. 5.0 195.00 DM 

GRAPHIC WORKSHOP (m. dt. Handbuch) 97,00 DM 
HYPER DISK 4.2 98.00 DM 

DESKTOP PAINT 79.00 DM 

SCANTOOL v. Dirk Zender 49.00 DM 

AUTOMENU (dt. Vollversion) 128.50 DM 

TREEVIEW 68.00 DM 

COMMANDER KEEN-SPIELE PAKET 58.50 DM 

PC-TEXT 2.2 v. Roland Otter 54.00 DM 

FB-TRANSLATOR v. Frank Brall 49.00 DM 

DISK DUPLICATOR 45.00 DM 

PKZ1P/PKUNZIP 1.10 94.00 DM 

DUKE NUKEM (Spielepaket Vol. 1-3) 58.50 DM 

QEDIT ADVANCED 108.00 DM 

FORM GEN 72.50 DM 

DARK AGES SPIELE PAKET 58.50 DM 

PD-Service-Lage ist anerkanntes Mitglied der 


PD-SERVICE-LAGE 

Bernd Schulz 
Postfach 1743 
4937 Lage/Lippe 

Tel.: 05232-66912 

Wir nehmen telefonische Bestellungen 
tägl. von 10-14 Uhr persönlich entgegen, 
zu allen anderen Zeiten steht Ihnen unser 
24-Stunden-Service über Telefax und 
Bildschirmtext zur Verfügung 

FAX: 05232-4039 
BTX: *PD SERVICE# 

Wir liefern Ihnen stets die aktuellsten Versionen 

PD- und Shareware-Programme 

für IBM-kompatible PCs! 
z.B. für: MS-WINDOWS 3.0, UNIX, CAD, DTP, 

OS/2, NETZWERKE, DFÜ, SPIELEN & LERNEN, sowie 
viele DEUTSCHE und INTERNATIONALE Progamme. 
für fast alle Anwendungsbereiche 


Unsere Kopiergebühren: 

5,25 Zoll Disketten 5,50 - 4,00 DM 
3,5 Zoll Disketten 7,50 - 6,00 DM 

Überzeugen Sie sich von unseren Leistungen 

Fordern Sie für 3.00 DM (in Briefmarken) unsere Katalogdisketten, 
mit unserem Super-Suchprogramm an 

Zahlung per Vorausscheck, Nachnahme 
oder mit folgenden Kreditkarten: 
American Express, VISA, Euro-/Mastercard 

Association of Shareware Professionals (ASP) 






















Editorial 


Liebe Leserinnen 
und Leser, ... 


Mancher mag vielleicht die Nase rümpfen über Spielprogramme auf dem Compu¬ 
ter. Niemand wird aber bestreiten wollen, daß das Spielen eine der am weitesten 
verbreiteten Arten der Computernutzung darstellt. Selbst eingefleischte PC- 
Griesgrame mit grauem Anzug, steifem Kragen und “Festplatte“ auf dem Kopf 
sind gegen das Spielefieber nicht gefeit. Warum sonst haben wohl viele PC-Spiele 
die sogenannte Boß-Taste, die den kunterbunten Spielbildschirm auf Fingerdruck 
durch eine “ harmlos“ aussehende Dummy-Datenbankmaske oder eitlen Textver- 
arbeitungs-Screen ersetzt? Wenn der Vorgesetzte durchs Büro schleicht und sei¬ 
ner Mannschaft über die Schulter schaut, soll er halt nicht merken, daß Sachbe¬ 
arbeiter Krause seinen PC gerade zu wenig “ernsthaften “ Zwecken nutzt und 
vielleicht eben dabei war, “Larry“ durch den Dschungel programmierter Liebes¬ 
abenteuer zu führen. 

Als CPC-Benutzer braucht man sich seiner Spielfreude nicht zu schämen. 8-Bir- 
Rechner sindja ohnehin als “Spielmaschinellen“ verschrien, und insofern — ist 
der Ruf erst ruiniert, spielt sich ’s völlig ungeniert. Es ist bloß erstaunlich, daß 
die Spielesoftware-Hersteller dem CPC offenbar wenig Anspruchsvolles zumuten. 
Immerhin gibt es es diese Rechner nun schon mehr als sieben Jahre — da sollten 
die Programmierer doch langsam wissen, daß nicht nur Freunde von Ballerspie¬ 
len und joystickmordenden Sportsimulationen einen CPC besitzen. Wieviele gute 
Adventures gibt es für die kleinen Amstrads? Und wieviele Rollenspiele? 

Einer der Beiträge in diesem Heft will Ihnen einen ersten Einstieg in die Gestal¬ 
tung eigener Rollenspiele geben. Vielleicht bringen wir ja einen Stein ins Rollen, 
der auch die englische und französische Software-Industrie erfaßt — denn von 
dort kommen heute noch neue kommerzielle CPC-Spielprogramme. 

Vielleicht schickt uns auch ein hoffnungsvoller deutscher Autor bald ein selbstge¬ 
schriebenes Fantasy-Rollenspiel für CPC oder PCW ein. Zu wünschen wäre es — 
denn: Nur wenige Spielprogramme geben der Phantasie des Benutzers wirklich 
eine Chance. Wir meinen, daß der Computer dann am besten genutzt ist, wenn er 
den Kopf seines Benutzers nicht lahmlegt und “zudröhnt sondern fordert und 
seine Aktivität weckt. Was meinen Sie? 

Es grüßt Sie Ihr 

Peter Schmitz, Chefredakteur 
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- Die Steckverbinder der CPC-plus-Reihe 
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Schachmatt in zehn Spielen 

- Wir haben die CPC- und PCW-Version des 
Colossus-4-Schachprogramms gegenein¬ 
ander spielen lassen 

Großer Leserwettbewerb 

- Über 50 tolle Programme für PCW und CPC 
zu gewinnen 

Das neue Kleid für CP/M 

- Betriebssystemaufsätze gibt es nicht nur 
für MS-DOS. Auch CP/M kann mit so 
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- Wir haben die Firma Wiedmann in 
Ismaning für Sie besucht 
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In luftiger Höhe fanden wir Know-how in Hülle und Fülle: Rund um die 
8-Bit-Serien von Amstrad gibt es bei Thomas Wiedmann alles, was das 
Herz begehrt. Mehr zu einer der letzten PCW-"Hochburgen” lesen Sie 
auf 

Seite 14 
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Der Faden der Ariadne 

- Kl auf dem CPC, oder wie schlängele ich 
mich durch ein Labyrinth 

Gobang . 

- Das Spiel Gobang dürfte Ihnen sicherlich 
bekannt sein. Wir bieten Ihnen eine Zwei- 
Spieler-Variante an 

3D-Mersi 

- Wenn Ihnen das Spiel Tetris und alle 
Varianten desselben auf die Dauer zu zwei¬ 
dimensional sein sollte, testen Sie unsere 
3D-Version 


HARDWARE: 


Auch mit dieser 
CPC halten Sie wie¬ 
der eine ganze Men¬ 
ge an interessanten 
und vor allem 
neuen CPC-Spiele- 
tests in der Hand 

S.92 




Die Neuen sind da 

- Auf der Systems soll ein neuer PCW 

vorgestellt werden. Wir haben schon einige 
Informationen für Sie parat 


CP/M: 


51 

Statistik in Pascal 

- Statistische Auswertungen mittels 


Turbo-Pascal 

42 

Dateien-Kompression 

- Der Huffmann-Algorithmus im Detail 

48 

Pascal-Kolleg 

- Den Logarithmen auf der Spur 


SOFTWARE-REVIEW: 


Action, Simulation und mehr 

- Wieder eine ganze Menge an neuer 
Software für Ihren CPC 


KNOW-HOW 


32 Assembler-Ecke 

- Die Maschinensprache stellt sich vor 


Bei unserem Leserwettbewerb wird kein Monitor geschont. Malen Sie 
eine Schwarzweißgrafik, und gewinnen Sie eines von fünfzig spannen¬ 
den Spielen 
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Oktober/November ’91 


Nicht ganz alltäg¬ 
lich, aber dennoch 
äußerst interessant: 
eine 3D- Version 
von dem 
Spie! Tetris 

S.22 




ANGELESEN: 

41 Bücher 

- Wirstellen drei interessante Bücher zum 
Thema Computer und Programmierung vor 


_ PCW: 

Im Herzen des Joyce (3) ^ 00 

- Informationen über den Bildschirm 
und die Zenith Z19/Z29-Terminal-Emulation 



Schluß mit dem Schreibkram 106 

- Komfortabler Überweisungs- und 
Lastschriftdruck 


Dreh'Dir einen m 

- Glücksrad für den PCW 


Utilities sind überall 105 

- Lange angekündigt und endlich da: 
viele nützliche Tips für den PCW 


TIPS & TRICKS: 


77 100 DM für 1 kByte 

- Sechs Spitzenprogramme: für alle etwas 


80 Floppy im Schnellgang 

- Wichtige Tips und Infos zu den 
CPC-üblichen Floppy-Stationen 


Colossus 4 auf dem PCW mußte sich mit der CPC-Version dieses 
Schachprogramms messen. Wie es ausgegangen ist, lesen Sie auf 

S. 16 


Artworx-Druckerroutine 

- Endlich werden Artworx-Bilder in einer 
Spitzenqualität ausgedruckt 


81 Safer-Tape 

- Kassettenjustierung mit Software und 
Schraubenzieher 


83 Gamers-Message 

- Tips zu alten und neuen Spielen 


In unserer neuen 
CP/M-Rubrik stellen 
wir Ihnen unter an¬ 
derem einen sehr 
interessanten 
Kompressions- 
Algorithmus vor 

S. 12 
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Aktuell 


Vorlagenhalter von Lindy 


PCW-Software 


Problem: Es muß wieder einmal 
ein langes Listing aus der CPC 
in den Computer eingegeben 
werden. Störend ist hierbei mei¬ 
stens, daß die Vorlage nie diesel¬ 
be Höhe wie der Monitor hat 
oder aber - wenn dieses Ziel 
gerade erreicht ist - die Vorlage 
wieder abrutscht. 

Die Firma Lindy-Elcktronik 
GmbH hat sich dieses Problems 
angenommen und Vorlagenhal¬ 
ter. die speziell für den Einsatz 


am Computer gedacht sind, ent¬ 
wickelt. Daß dies eine enorme 
Arbeitserleichterung sein kann, 
muß nicht erst gesagt werden. 
Durch die schwenkbare Kon¬ 
struktion lassen sieh die Lindy 
Manuskripthalter immer in die 
richtige Position bringen. 

Je nach Art des Manuskripthal¬ 
ters beträgt der Preis zwischen 
50 und 100 DM. 

Info: Lindy Elektronik GmbH, 

Postfach 102033, 

681)0 Mannheim I 


Aus dem CPC-Intemational-Ar- 
chiv stammen zwei Disketten 
mit interessanter Software rund 
um den PCW. 

So wurde eine Diskette mit An¬ 
wenderprogrammen wie ei¬ 
ner Benutzeroberfläche, einer 
Hardcopyroutine sowie Packer 
und Entpackcr und vielem mehr 
erstellt. Die Spielediskette ent¬ 
hält neben Brettspielen, zum 
Beispiel Backgammon, Mensch 


ärgere Dich nicht oder Gobang, 
auch Programme für Denk¬ 
sportler, die das Ausgefallene 
suchen. Genannt seien hier nur 
Namen wie Verbindungen oder 
Rubik’s Clock. Beide Disketten 
können jeweils zu einem Preis 
von 29,- DM plus 4,- DM 
Versand kosten bei DMV, Post¬ 
fach 250, Versandservice, 3440 
Eschwege, bezogen werden. 



Grafikmanipulation 



Wenn Sie mit dem Programm 
MicroDesign oder ProScan ar¬ 
beiten, sollten Sie sich diese 
Utility-Diskette einmal genauer 
betrachten. 

Neben einem Disketten-Forma- 
tierungsprogramm und einer 
Beschleunigungssoftware für 


die Druckerausgabe bei Micro¬ 
Design II enthält diese Disk das 
Grafik-Manipulationspro¬ 
gramm TWEAK, das die ohne¬ 
hin schon üppigen Gestaltungs¬ 
möglichkeiten von MicroDesign 
um einen weiteren Satz interes¬ 
santer Funktionen ergänzt mit¬ 
tels Bend ist es möglich eine be¬ 
stimmte Fläche um einen Zylin¬ 
der zu wickeln, so daß das Er¬ 
gebnis einer Litfaßsäule ähnelt. 
Circle biegt einen Text so. daß 
man Ihn bequem in einen Kreis 
einfügen kann. 

Mittels Fattern wird ein Text 
verstärkt - sprich die Linien 
werden deutlich dicker gezeich¬ 
net, um die Schrift hervorzu¬ 
heben. 

Outline erfüllt die selbe Funk¬ 
tion wie Fattern, nur daß die 
zum Wort gehörenden Linien in 
der Mitte nicht ausgefüllt sind. 

Info: JPS,Bernhard Graßhoff, 

Roesolt 36. 

2305 Heikendorf 


Printer Support Pack 


Zeitlich abgestimmt zu dem Er¬ 
seheinungstermin von Loco- 
Script 2.30 bietet die Firma 
Wiedmann in neuem Konzept 
ein weiteres LocoScript-Zusatz- 
paket an. Das Printer Support 
Pack beinhaltet neben dem Loco 
Script-2.30-Installationspro- 
gramm noch alle bisher für Lo- 
coScript verfügbaren Drucker¬ 
treiber sowie die Programme 


LocoFont und LocoChar. Zu¬ 
sätzlich wird dem Anwender 
noch eine Serie von Treibern für 
die unterschiedlichsten Typen¬ 
räder des PCW-9512er-Druckers 
in die Hand gegeben. 

Der Preis wird sich auf 125,40 
DM inklusive Mehrwertsteuer 
belaufen. 

Info: Wiedmann Unternehmerisberatung, 
Korbiniansplatz 2, 8045 Ismaning 


Neuer Drucker von Fujitsu 


Mit dem DL900 bietet die Firma 
Fujitsu nun auch einen 24-Na- 
dei-Drucker für den kleineren 
Geldbeutel an. Der DL900 kann 
durch seine Druckbreite von 110 
Spalten (11 Zoll) A4-Formate 
quer bedrucken, die auch über 
den automatischen Einzelblatt¬ 
einzug zugeführt werden kön¬ 
nen. Dank seines maximalen 
Druckgeräuschs von 52 dB(A) 
fällt er selbst auf dem Schreib¬ 
tisch nicht störend auf. Beim 
Ausdruck mit 12 Zeichen/Zoll 
erreicht er eine Druckgeschwin¬ 
digkeit von 180 Zeichen/Sekun¬ 


de, was gerade für PCW und 
CPC vollkommen genügen sollte. 
Die drei Emulationen, Fujitsu, 
Epson und IBM, bieten außer¬ 
dem die Möglichkeit, den 
Drucker frei an bereits instal¬ 
lierte Software anzupassen. 
Auch die Auflösung von 360 
Punkten/Zoll dürfte sich eigent¬ 
lich sehen lassen und bringt zum 
Beispiel bei Grafikausdrucken 
mit CopyShop sehr gute Ergeb¬ 
nisse aufs Papier. 

Info: Fujitsu Deutschland GmbH. 
Frankfurter King 211. 8000 München 40. 
oder im Fachhandel 
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Aktuell 


LocoScript 2.3 


Drucker, wo druckst Du? 


Auch LocoScript wird mit die¬ 
ser Version eine Stufe höher 
steigen. Welche Änderungen ge¬ 
nau vorgenommen wurden, ist 
uns auch bei diesem Programm 


zur Zeit leider noch nicht be¬ 
kannt. Wir werden Sie auf dem 
laufenden halten. 

Fest steht jedoch schon der Preis 
von 148,20 DM inkl. Mwst. 


■ JOYCE-Computerclub öffnet 
I sich PC-Anwendern 


Der seit mehr als vier Jahren be¬ 
stehende JOYCE-Computerclub, 
der überregional für die Anwen¬ 
der speziell der PCW/JOYCE- 
Computer fungiert, widmet sei¬ 
ne Arbeit nun auch den Um- und 
Aufsteigern, die ihre Arbeit mit 
einen PC/XT/AT weiterführen 
wollen. 

Das Konzept des Clubs als über¬ 
regionaler User-Club für das 
Bundesgebiet und das deutsch¬ 
sprachige Ausland bleibt dabei 
bestehen, ebenso die bisherigen 
Clubleistungen. Kontakte zu an¬ 
deren Anwendern, Arbeitsgrup¬ 
pen sowie der PD-Corner sind 
hierfür nur einige Beispiele, ln 
Vorbereitung ist die Einrichtung 


einer Mailbox. Anfang Novem¬ 
ber findet das bundesweite 
Clubtreffen statt, zu dem natür¬ 
lich alle interessierten Compu¬ 
terbesitzer eingeladen sind. Hier 
kann man dann auch neue Soft- 
lind Hardware gleich am Compu¬ 
ter ausprobieren, Kontakte knüp¬ 
fen, fachsimpeln etc... 

Nähere Informationen, auch 
zum Clubtreffen, erhalten so¬ 
wohl die JOYCEler als auch In¬ 
teressenten aus der PC-Gemein- 
dc von: 

Kay-Uwe Berghof 
Joyce-Userclub 
Roseggerstraße 5 
5600 Wuppertal 2 


Es ist soweit 


Das Kind im Manne erwacht bei 
Ansicht dieses kleinen Sclbst- 
bausatzes. Wird er doch damit 
in die Lage versetzt, auch das 
letzte Spiel noch mit dem Joy¬ 
stick oder ähnlich zu spielen. 
Vorbei sind die Zeiten, wo man 
Pirates auf dem PC oder aber 
Head Over Hecls auf dem PCW 
nur mit der Tastatur gewinnen 
konnte. Endlich gibt es einen 
Ministick. Sekretärinnen sei-je- 
doch davon abgeraten, dieses 
Teil auf Ihrer Computertastatur 


anzubringen, da ganz nebenbei 
der Zehnerblock, wenn auch 
nur teilweise, unbrauchbar ge¬ 
macht wird. Vielleicht sollte 
man sich noch etwas überlegen, 
um auch die letzten vier Tasten 
(7. 9. 1, 3) zu belegen. 

Es wäre sicherlich ein Vergnü¬ 
gen, seine Zahlen per Joystick 
einzugeben. 

Info: Lindy Elektronik GmbH, 

Postfach 102033. 

6800 Mannheim I 



Die Infralink Datentechnik 
GmbH stellt eine Lösung zur ka¬ 
bellosen Verbindung von Com¬ 
puter und Ausgabegeräten, zum 
Beispiel Druckern und Plottern, 
über die parallele Schnittstelle 
vor. 

Infralink benutzt dazu unsicht¬ 
bares, infrarotes Licht zur Über¬ 
tragung von einem Infralink- 
Modul zum anderen. Insgesamt 
können bis zu acht Drucker von 
jeder Sende-Einheit angesprun¬ 
gen werden. Sender können be¬ 
liebig viele vorhanden sein. 
Nützlich ist dies besonders für 
Besitzer von mehreren CPCs 
oder PCWs, da hiermit die Com¬ 
puter bis zu 70 Metern von dem 
Ausgabegerät entfernt werden 
können. Ist der jeweilige Emp- 
fängerkanal eingestellt, funktio¬ 


niert die Übertragung genau wie 
der Datenaustausch mittels Ka¬ 
beln. Ist der Drucker nicht be¬ 
reit oder ist kein Papier mehr 
eingelegt, wird das entsprechen¬ 
de Signal vom Drucker an den 
Computer zurückgesandt. Die 
einzigen Einschränkungen, die 
sich ergeben, sind, daß Infralink 
einen direkten Kontakt zur 
Raumdecke haben muß und daß 
bei längerem Nichtbetreiben der 
Anlage bei jedem Infralink-Ge- 
rät die Stromversorgung aus der 
Steckdose entfernt werden muß. 
Optisch paßt Infralink zum Bei¬ 
spiel sehr gut zu dem CPC 6128 
plus, dem PCW 9512 und dem 
Amstrad LD 6000 Laser- 
drucker. 

Infos: Infmlink Datentechnik GmbH, 

Am Fuchsberg 8, 4040 Neuss I 
oder aber im Fachhandel. 



MicroDesign 3 


Wußten Sie schon, das kurz vor 
Weihnachten eine neue Version 
von MicroDesign erscheinen 
wird? 

Die Version 3 beinhaltet alle 
Funktionen von MicroDesign 2 
sowie ProScan und wird darüber 
hinaus noch mit einigen bisher 


noch nicht bekannten Zusatz¬ 
funktionen aufwarten. 

Selbstverständlich wird es eine 
komplett deutsche Version die¬ 
ses Programms geben. 

Info: Wiedmann Untemehmensbenmmg, 
Korbiniansplatz 2, 

8045 Ismaning 


MicroDesign für PC 


Wer von seinem PCW auf einen 
PC/XT/AT umsteigt, wird si¬ 
cherlich oft an das gewohnte 
Programm MicroDesign zu¬ 
rückdenken und sich wünschen, 
auch auf dem PC mit diesem 
Programm bereits bestehende 
Grafiken weiterbearbeiten zu 


können. MicroDesign PC be¬ 
sitzt den kompletten Befehlsum¬ 
fang von MicroDesign II und 
kostet rund 200 DM. 

Info: JOYCE-Platin enservice. 

Bernhard Graßhoff, 

Rocsoll 36, 

2305 Heikendorf 
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Wir sind Ihr starker 
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Business-Programme CPC: 


Star-Writer I <CPC3").._._...98,~ 

Textsysiem mit. Adreßverwattung. Grafik. 

DFÜ. Zeichen-editor 

Datei-Star (CPC 3 ).-.98,-- 

Umverseiles Date verwaiturgsprog'amm 

Neuheit: Disktool.69,- 

3-Pron.-Paket mit 9 Utrlltis (Format/Kopie) 



'mmmmmm. 



Supercalc nur CPC 6t2» pcw.. 59,80 

Tabellen kalkulahonsprogramm der Supertai.ve. 

Neu Deutsches Handbuch 19,80 


Programmiersprachen CPC 


HiSoft Pascal ß7 Kas.). 59,80 /39,80 

•] 

Assembler ßVKas.). 59.80/39,80 

!! (mW deutscnem Handbuch) 



Spiele, Entspannung CPC: 


Sorcery Plus ß-) ..30.-- 

I Spannendes Gescheki.cnkeitsspiel mit 
super Grafik. 

Cyrus II Chess (3*) Superschach 49,-- 
i Denksport auf Ihren CPC 3D Darstellung 

Flugsimulator 737 ß/Kas) 38.--/28,— 


4 

""i"' 7" 

Amor: 

Amor C CPC 6i28 225,- 

Prowort.. 198,- 

Protext 3'. 98,- 

Protext Eprom . 124.- 

MAXAM 3“.94,- 

MAXAM Eprom . 124.- 

MAXAM II.239,- 

Prospellengl.50,- 

Prospell dtsch.79,- 

STAR DIVISION: 

Slar-Writer I.. 98,- 

Datei-Star.98,- 

Statistic-Star...98,- 

FibuStar Plus CPC .. 298,- 

CPC-Knüller: 

ROMBOX CPC.118,- 




. 

CPC 6128 r 


mit Grünmonitor GT65 

798.- 


mit Farbmonitor CTM 644 — 

1098- | 


CPC 6128 Konsole einzeln .... 

698,- 


Grünmonitor GT 65. 

.248.- | 


CPC 6128 Plus 


■j 3" Laufwerk. Cartridge-Sleckmodul 

126 KB Ram. 2 Joysfickanschlösse...... 

Monochrom (sAv) 899,— Farbe 1.199,— 



Adventures CPC (1 - Text; g - Grafik) 


D'amant von Rabenle s (g) 

Drachenland (t) 

Reise durch die Zeit (t) 

Shertock Holmes (g. nur 3'Diskette) 

Auftrag m der Bronx (g> 

Insel der Smaragde (t) 

Pharaonergrab (i) 

jo 3''-Diskette / Kassette 38,** / 28,-- 



Grafik auf CPC: 


EASIART + Trackerball.198, 

Zeichnen und Konstruieren mit dem Marconi 
Trackerball und dem Grafikprogramm EASI-ART. 
Unschlagbar In Kombination mit StopPress II 

EASIART* Trackerball +Stop Press .. 348,-- 

EASIART Softw. u. Handb.78,- 

Maus Paket inkl. EASIART... 149,-- 


CPC + Joyce 


! Van der Zalm: 

; ADRESCOMP.58,- 

j OATENREM . 68 ,- 

FAKTUREM .78.- 

| FIBUPLAN. 148 .- 

; LAGDAT. 68 .- 

! TEXTKING.78.- 

\ COMFORM .48,- 

ETATGRAF. 58.- 

FI3UCOMP.98.- 

I KALKUREM ..78.- 

! PROFIREM.138.- 

Crafik Knüller: 

i Maus Packet. 149 .- 

i inkl. Easiarl 
; AMX Maus 

i mil Grafiksoliware .... 248 ,- 
ij StopPress 

ij DTP Programm. 178 ,- 

StopPress + 

AMX Maus.298,- 


MICA CPC.. 98,- 

Termmalstar 3‘.29,80 

Mini Otfice 113'. 98.- 

Dart-Scanner (+).249,- 

Videodigitizer (+).348,- 

Turbo Pascal 3.0 .225,- 

Turbo Toolbox.108,- 

Tascopy Kas./ 3" 39 / 59,~ 
Tasword Kas. / 3" 69 / 89,- 
Tasprint Kas. / 3" 39 / 59,— 

dk tronics 

für 464/664 

Speech Synth. (ROM) 148,- 
Speech Synth, (Kas) . 98,- 

Lightpen (Kas.).68,- 

Uhrenmodul.119,- 

für 6128: 

Adaptsi Kir CPC 6126 (+) 39,- 

Abdeckhauben: 

CPC Monitors.je 39,80 

DMP-Drucker.je 29,80 

DDl/FDl/Vortex . je 19,80 
CPC Konsolen ... je 24,80 

Joyce Monitor.44,80 

Joyce Tastatur.24,80 

Joyce Drucker.24,80 

3"-Disketten (iost.) 

Maxell CF2.69,- 

CF2 DD.128.- 

Noname...59,— 

Diskettenboxen: 

3"-3,5'' /50. 19,80 

3"-3,5'71C0.29,80 

5,257100 .29,80 

POSSOBOX 150 3" 59,- 

Schnittstellen: 

RS 232 Joyce.198,- 

Monitore 

GT 65 .248,- 

CTM644.548,- 


CPC 



Schaltpläne für: 


CPC 464/664/6128 je 29,80 

CTM 644/640.je 19,80 

GT 64/65 ....je 19,80 

DD1 / FD1 .19,80 

DMP 2xxx/3xxx.29,80 

Joyce 8256/8512 29,80 



Spielesammlungen • Ganz stark ! 


:i Mindestens 3 Spiele auf einer 3" Diskette 

Super Games I (4 Spiele). 30,- 

Super Games II (4 spiele). 30,- 

Super Games III (3 Spiele). 30,- 

They sold a million (4 Spiele). 30,- 

GAME Paket alle 14 Spiele „100,- 






dBase II für CPC /Joyce ß”) 
jeder PC Besitzer kennt dieses relationale 
Datenbanksystem von ASHTON TATE. Diese 
Software eignet sich zur Lösung aller Anwen- 
dungsprobieme . wie Lager-. Adressverwalt- 
ung, Fakturierung Betriebsabrechnung etc. 

(bis zu 65536 Datensätze) Achtungl CPC 
464 -664 Besitzer benötigen eine 64 KB 
Erweiterung 

Mil deutschem Handbuch 1 48," 

Wordstar 3.0 

MicroPro für CPC /Joyce 

Profilieren auch Sie vom Nulzen eines 
millionenfach bewährten Textverarbeitungs¬ 
programms und erledigen Sie alle Schreib¬ 
arbeiten auf eine schnelle und komfortable 
Art und Weise. 

464- 664 Besitzer benötigen eine 64 KB Er. 
Mit Serienbrieffunktion __ 

Mit deutschem Handbuch 


Sensationelle Preissenkung 


Profiprogramme aus der pc wen 

Wir haben den Alleinvertrieb für dBasell, 
Multiplan, Wordstar 3.0 und Microsoft 
Basic (CPC*Joyce) von Markt & Technik 
übernommen I Sollten Sie also Interesse 
an einer durch und durch professionellen 
Software für Ihren CPC oder Joyce 
haben, dann zögern Sie keine Sekunde 

Software Paket 


dBase II + Wordstar + Multiplan zum 

sensationellen Paketpreis von ggg „ 

Handbuch (auch einzeln erhältlich) 

49,-- 

Händleranfragen erwünscht. 

Wir suchen noch Kooperations¬ 
partner sus der ehemaligen DOR fl 



Multiplan Microsoft CPC / Joyce (3") 

Ja, Sie haben richtig gelesen, das bewährte 
Tabellenkalkulationsprogramm gibt es auch 
für Ihren Computer. Wenn Sie die zeit¬ 
raubende manuelle Verwaltung tabellarischer 
Aufstellungen von Hand satt haben, ist 
Multiplan genau das Richtige für Sie. 

CPC 464-664 Besitzer benötigen eine 
64 KB Erweiterung CPC 99,-- 

Mit deutschem Hb. Joyce 148,-- 


V.WI 'IMII.'.. 


*8® 


SOFT 


MH 


Basic+Assembler cpc 6128 /Joyce 

Komplettes Entwicklungspaket mit: Basic- 
Compiier 5.4 Basic-Intsrpreter 4.51und 5.21. 
Macro-Assembler, Link Kinking Loader.Crel 
Cross-Referenc Facility und Llb Library 
Manager. 

Ein Muß für jeden ernsthaften Basic-und 
Assembler Programmierer II CPC 99,-- 
Mit deutschem Handbuch Joyce 148,-- 


Kassettensoftware: 1 

1 Easi-TopcalcKas. 

29.80 1 

Basic Lehrt)uch Kass 29.60 ■ 1 

Taifun Basic Comp, 

43.- 

Mini Office II Kas. ,. 

49.- 

Kassetten-Spielc: 


Futuroworld. 

20.- 

Stud Poker. 

20.- 

Manie Miner. 

20.- 

Poker/17+4. 

20,- 

Thorr 1+2+3..je 

20.- 

Spiele Sonderpreise 


Kassetten. 

70.- 

IMIIListe enfordem III!) 


Handbücher Deutsch 1 

! für CPC: 


Mini Office II. 

29.80 

AMX-Maus CPC . 

29,80 

StopPress CPC. 

19.80 

dk'tronics Erw. 

19.80 

Protexl. 

19.80 

MAXAM. 

19.80 

Supercalc.. 

19.80 

6128 deutsch.. 

... 68 .-- 

6128 englisch.. 

. 48.- 

fürJoyce: 


AMX-Maus Joyce.... 

19.80 

Mini Office Prof. 

29.80 

CPM PLUS 


Anwenderhandb. 

45.- 

deutsch & englisch 


MasterScan.. 

19 60 

StopPress Joyce. 

13.80 

Desktop Publisher... 

.19,80 

MICA. 

...39,- 

LocoScript2. 

...59- 

LocoFile. 

.59- 

Public Domain: 


1000 PD (3‘).je 20,- 1 

1 PO Kotuiia 

1 




















































































































































































































Joyce PCW 8256: 

• 3“-Laufwerk (180 KB) 

• Drucker + Textsoftware 

• CPM-Plus und Basic 

• 256 KB 998,-- 


Joyce PCW 8512: 

• 3"-LW (180 ♦ 720 KB) 

• Drucker + Textsoltware 
■ CPM-Plus und Basic 

• 512KB 1398,- 


Joyce 


Amor: 

ArnorC. 225.- 

C ;«*l such lur den Joyce und 
CPC 6128. Mit Compiler Linker 
und Editor 

Joyce-Knüller: 

Desklop Publisher 98,- 1 

... + AMX-Maus (+) 298,- ' 

MasterScan (+).298,- 

MasterPainl...78,- 

MasterScan/-Palnl.338,- ! 

Mini Olfice Profess.138,- 

...Dlsch. Zeichensalz... 29,80 ( 

Tasword 8000.148, i 

Turbo Pascal 3.0.225,- 

Turbo Toolbox.148,- j 

Pascal M+T.198,- | 

Texlverertoeitung mit Recht- 
: schre bpruf. und Maiimerge 
! PROSPELL (dt) 79.- 

i MAXAM II....239.- 

j Locomotive: 

LocoScrpl ♦ Spell 248,- 

STAR DIVISION 

1 Statistik Star .90.- 

:• Starmail . 99.- 

Prompt (Dalei) .69,- , 

Prompt Druck.39,- - 

Turbo Adress.98,- - 

Turbo Faktura ..148,- ( 

Headline... 198,— 

i Daiei-Star. 99,- 

MICA CAD . 98,- 

j Mailmg System..189.- 

Star Base . 198,- 

Business-Star ..„ 298,- 

Fibu Star Plus. 298.- 

Kortonblältor F*)u . 35,90 

loco Morge.93,- 

Comac Litbox 4.0.148,- 

Comac Kasse Plus.168,- 

Comac-Banktransfer ..,.59,50 

Vereinsverwaltung.198,- 

Schreiblehrgang.89,- 

PSE2. 129,- 





Datenrekorder ♦ Kab. 98,- 
Druckerkabel. 6128.38,- 
Druckerkabel 464/664 38,- 
Moniiorverlängerung: 

...CPC 6128 .29,80 

...CPC464.24,50 

Drucke rverlängerung: 
für Joyce (2 Kabel).... 58,- 
Margin Maker 

Papierf. Joyce.39,- 

Traklor NLQ 401 


Joysticks 

Competition pro 39,30 
Ouickshot II . .. .... 19.80 


DMP 3160 (9-N.).498,- 

Star LC20 (9-N.).498,- 

NEC P20 . 898,- 

NECP60.1598- 

Star LC24-10 (24-N.) 698,- 

Farbbänder: 


58,- 

NLQ 401/DMP. 

.. .19,80 

Star LC 10/20 . 

...19.80 


Star LC 24-10. 

.... 24.80 

58,- 

LO 35-/NL10/PCW. 

,...24,80 

Joyce (Carbon). 

PCW9512. 

...39,80 

....19,80 

39,80 

Starte 10 . 

...19,80 

19.80 

StarLC 24-10. 

.24,- 


Zubehör 


Umweltschutzpapier 
Zweckform 1000 Bl. .24,80 

Endlos 1000 Blatt.29,80 

weiß 

Etiketten 200 Stk_16,- 

70 x 70 3" und 3,5" 

Da tenübertragung 

Dataphon 2400 b.698,- 

Modem 2400 MNP5.398,- 
Modem 2400 Baud ... 348,- 
Alle Modems sind ohne 
Postzulassung 
Software DPÜ.. 58.- 



BTX Modul für CPC 


CPC BTX Modul lur 464 664 6128 
mit Kabel. keine Soltware nötig.In Verbindung 
mit einem MP 2 auch am TV betreibbar. 
Anschluß mit DBT03 oder Modem. 


198,- 


ProSCAN 


_IHandscanner lür PCW 8/'"‘ 

ProScan Software Installationsan. In deutsch 
mit englischem Handbuch. 798 — 



Multiface 2 


Sagenhaftes Kopiermodul I 

- Vollständige Koperemrichtung lür Kassetten 
und Disketten 

• Wi’d auf den Expansionspon Ihres CPC 
(464.646 und 6128) aufgesteckt. 

Wahweise Kopieren von Kas. aul Disk, und 
umgekehrt 178,' 

Adapter für CPC 6128 (DM 39.-) 



Neu 1! Loco Script PC In deutsch 


end ich auch lur die MS PC DOS Welt 


Darauf haben alle gewartet, die auf einen 
DOS-Rechner umsteigen wollten. Sie können 
Ihre Datenbestände v.PCW auf den PC über¬ 
nehmen. Im Lieferumfang enthalten: 

- Loco Script rnn - Loco Mail 

- Loco Spell Dyo,““ . |_ oco piio 

- englisches Handbuch 


Auf das sollten Sie achten. 


Rücknahmeangebot 
für CPC / Joyce 
Besitzer. Sollten Sie 
auf ein anderes 
System PC XT / AT / 
80386 umsteigen 
wollen, nehmen wir 
Ihre Gebrauchfanlage 
zu Höchstpreisen in 
Zahlung 


Rufen Sie an: ja 



PC 2386 HDMD 12-2998,- 
65 MB HD 4 MB Ram 64 K 
Cache MS DOS 4.01 
Windows Tastatur 


Sollte einmal Ihr zweit- 
S»'. SSüiK m bestes Stuck ein 

. kleines Wehwehchen 

H haben, garantieren wir 
Ihnen durch eine 
modern eingerichtete 
Werkstatt mit 
absoluten Spitzentech- 
• -.-.ru mr nikern im eigenen Haus 

’’j? einen guten Sevice. 

ssen Sie sich vorab telefonisch ein Angebot machen 
Festplatte Euio PC... 499. Wccske AT 

Euro CD ROM .999 12 MHz t MB H. 40 MB HD 

FD 360 5.25 . 199.- 1.2 MB FD Here. Karte 

Box II.79.50 Mono u .898,- 





Kopierprogramme: 


Mastercopy CPC (3 H ).65,- 

Es gibt so gut wie kein Programm, daß von 
Mastercopy nicht geknackt wird. Übersichtliche 
Menüsteuerung. (Disk auf Disk) 

Supercopy CPC/Joycs (3 ) 65,- / 85,-- 
Suporcopy ist wie der Name schon sagt... 
(Disk aul Disk) 





■ AMSTRAD 3"-Laufwerke: i® 

/ 'tjjCV 

DD1 (inkl. Contr.)_ 398,-- 


Ein Muß für jeden CPC 464 -Besitzer 

" - JL\ * 41 

Controller (auch einzeln erhältlich) 198,- 

FD1 (2.-Laufwerk CPC) 3 " 198,-- 


Achtungl Läuft am CPC 464 nur mit Contr, 


Kabel für FDi nötig lür 6128 / 664 48.- 


FD4 (2.-EinbauLaufw Joyce) 3 ‘ 398,— 



2 .-Laufwerke aus eigener 
Produktion 


3,5” LW (CPC / Joyce). .je 240,- 

0 Achtungl Lauft am CPC 464 nur mit Contr. 

' 5,25" LW (CPC/Joyce). je 320,- 

N Achtung! Läuft am CPC 464 nur mit Contr. 

E Metallgehäuse, (inkl.Kabel anschlußfertig) 

C Diskpara 3.5” / 5,25 '' Formatsoftware yg .. 



i Speichererweiterunaen CPC: i 

64 KB . 

.149,- 

1 28 KB nicht für 6128 .... 

.„..198,-- 

j 256 KB . 

.269,-- 

320 KB nicht für 6128 .... 

...349,- 

i 512 KB . 

.419- 

Joyce 256 KB(mit Einbauanleitung)98,— | 



DMP 3160 9 Nadeldrucker 


der beste Drucker lür den CPC, nur an diesen 
Drucker können Sie den Dart-Scanner 
anschließen. 

DMP 3160 ...498, - 

Druckerkabel CPC 464/664 6128.38,- 

Farbband DMP 2XXX /3XXX.19,80 

Farbband Star LC 10.19,80 

Farbband NLO 401_ 19.80 



1 Locomotive Software 

LocoScript2 (Textverarbeitung) 

148,-- 

mit deutschem Handbuch 


LocoSpell2 (Rechtschreibung 

168,- 

in deutsch mit engl. Handbuch 


Loco File (Datenbank) 

168,- 

: für LocoScript2 mit deutschem Handbuch. 

i Loco Font Set 1 und 2 79.80 / 

6M0| 



LocoMail2 (Serienbrief). 168,- 

fur LocoScrlpi2 mit engl. Handbuch, 


Datenübertragung CPM • DOS: 


MINI DOS JOYCE.50,» 

Mit Hilfe dieser Software können Sie auf Ihrem 
Joyce PCW MS-DOS-Dateien lesen, schreiben 
und formaleren. Sie benötigen dazu ein 3.5*- 
oder 5.25' Dis ketten laut werk 


Karl-Heinz Weeske 
Potsdamer Ring 10 
D-7150 Backnang 

Kreissparkasse BK • 3LZ (6025-3020) 
74397* Posfgiro Stgf, 83326-70? 




COnrUTER-ELEKTRONIK 

Zahlung per Nachnahme oder Vorauckas 
so.VorsandkosJenpausdtalü htand7,60 
DM (Ausland 19,80 DM) 

Fax:07191-60077 

Tel.: 07191-1528(29), 60076 


__ _ __ ' v.-- .-O 

pfurück an Absenoer 

I Interessiert an weiterem Info- . 
' material ? Kostenlose Gesamt- ' 
| angebotslisten anfordern ! 

] O ,ür CPC 61 28. 664. 464 
I O Joyce / PCW Computer 
O Sp.eie CPC / PCW 
I Q Public Domame 3" CPC'PCW I 

I Vorname. Name: 


I Slrafle. Hausnummer 
1 PLZ. Ori 


| Telefon Nr. Dalum 

I Mein Computersystem 


J 













































































































































































































































Bericht 


ZCPR - das neue Kleid 
für CP/M 

Komfortable Verbesserung für CP/M 

Trotz allem Unken aus der MS-DOS-Ecke ist und bleibt CP/M ein Standard, 
der sehr weit verbreitet ist. Und wie bei allen Dingen ist auch hier die Ent¬ 
wicklung nicht stehengeblieben. 


Das Betriebssystem CP/M hat, wie an¬ 
dere Programme auch, so seine Unzu¬ 
länglichkeiten. Um sie auszubügeln, 
wurde ZCPR. im Heft 6-7/91 bereits 
vorgestellt, entwickelt. Im folgenden 
noch einige nützliche Hinweise zu des¬ 
sen Anwendung. 

CP/M ist wie MS-DOS drcigeteilt: 

1) . Der maschinenabhängige Teil, das 
BIOS (Basic Input/Output System); 
hier wird dem Gerät mitgeteilt, wie es 
sich verhalten soll. 

2) . Das Software-Interface zwischen 
Maschinenteil und Programm, das 
BDOS (Basic Disc Operation System). 

3) . Das Software-Interface zwischen dem 
Anwender und dem Programm, der CCP 
(Command Console Processor). 

Historisch bedingt wurde CP/M im 
8080-Code generiert, der langsamer 
und umständlicher ist als der Z80- 
Code. Da man davon ausgehen kann, 
dal) die meisten CP/M-Computer heute 
einen Z80 oder höhere Verwandte wie 
den HD 64180 oder gar den Z280 ver¬ 
wenden. war es logisch, überflüssigen 
Code durch effizienteren zu ersetzen. 
Erstes Ziel war natürlich der CCP, da 


dieser am leichtesten ersetzbar ist und 
zur Laufzeit sowieso per Definition 
vom Anwenderprogramm überschrie¬ 
ben werden darf. Bei jedem Control-C 
(Warm-Boot) wird er deshalb wieder 
nachgeladen. Als Nebeneffekt wird die 
Disk Verwaltung “zu rückgesetzt“. 
Richard Conn und Jay Sage sind die be¬ 
deutendsten Autoren des Z80 Console 
Processor Replacements, des ZCPR. 
Auch für 8085-Anwender kein Grund, 
traurig zu sein - der Prozessor 
NSC-800 ist Pin-kompatibel und kennt 
sich mit Z80-Instruktionen aus! Ent¬ 
sprechende Informationen kann jeder 
Triumph-Adler-Club geben; im Zwei- 
felsfall einfach an die genannte Adresse 
wenden. 

Bis zur Version 3.3 wurde ZCPR als 
nicht-kommerzielles Produkt über die 
Public Domain angeboten und ist nach 
wie vor (als Quellcode zur Selbstinstal- 
lation) erhältlich. Diese Versionen 
funktionieren ausschließlich unter 
CP/M 2.2! Für CPCs mit Dobbcrtin- 
Erweiterung gibt es eine fertig ange¬ 
paßte Version gegen Zusendung einer 
Diskette mit 704 kByte Kapazität 
(Adresse siehe Box). Für andere Nutzer 
gibt es zwei Auto-Instal 1-Versionen, 
NZCOM (für CP/M 2.2) und Z3PLUS 


(für CP/M Plus). Beide sollen inner¬ 
halb von 15 Minuten lauffähige Systeme 
sein. An den Feinheiten kann man spä¬ 
ter feilen. Das Programm zum Preis 
von 126.61 DM, inklusive Versandko¬ 
sten. beinhaltet einen Grundstock an 
Software mit zugehörigen Tools und ein 
deutsches Handbuch. 

Jeweils neu erscheinende Tools bringt 
die Schnei de r/Amstrad CPC User 
Group gratis in Umlauf, die Verteilung 
übernehmen die User untereinander. 
Jeder Käufer erhält # eine Anwender- 
Adreßliste, aus der er die Formate erse¬ 
hen kann, die vom Empfänger gelesen 
werden können. Das ist notwendig, 
weil diese Systeme auf so gut wie je¬ 
dem CP/M-Computer laufen. 

Gehen wir also davon aus, daß Ihr Z- 
System bereits läuft und daher ein defi¬ 
niertes Environment existiert. Das be¬ 
deutet, das Z-System verwaltet die Da¬ 
ten der Bildschirmsteuerung (TCAP 
ähnlich wie bei UNIX) und die Daten 
der gültigen Lautwcrks- und User- 
Nummern. Eingeschlossen sind dabei 
auch die Zugriffs-Flags, die Suchpfad- 
Definition und die Namen der benann¬ 
ten Verzeichnisse. Alle für das Z-Sy¬ 
stem geschriebenen Programme kön¬ 
nen diese Daten (mehr oder weniger 
gut, je nach Tool) auswerten. Auf diese 
Art und Weise können sogar Pulldown- 
Windows und Balkengrafiken portier¬ 
bar programmiert werden! Damit hat 
man endlich etwas erreicht, was uns die 
MS-DOSIcr immer voraus hatten - 
eine einheitliche Umgebung (englisch= 
environment)! 

Hier ein Beispiel: 

Ein Anwender hat die Hardware-Konfi¬ 
guration Floppy A: und Floppy B: so¬ 
wie eine RAM-Disk (eine Hard-Disk 
würde gegebenenfalls die Rolle der 
RAM-Disk übernehmen). Da wir oben 
Z3PLUS als Beispiel genommen ha¬ 
ben, wollen wir dabei bleiben, denn für 
die CP/M-2.2-Variante NZCOM des 
Autoinstallers gilt fast das gleiche wie 
für die CP/M-Plus-Variante. 

Nach dem gewohnten Booten des CP/M 
Plus starten wir Z3PLUS einfach wie 
ein Utility: 

Z3PLUS <ENTER> 

Die User-Bereiche, die der Anwender 
zum Arbeiten benötigt, wurden bereits 
vorher festgelegt und ihre Namen aus 
einer Datei geladen. Diese stehen jetzt 
als benannte Verzeichnise zur Verfügung. 
Hier erkennt man, wozu User-Berciche 
sinnvoll verwendet werden können. Die 
Übersicht auf großen Disketten und 
speziell auf Festplatten nimmt erheb¬ 
lich zu. Im Gegensatz zu MS-DOS ist 


jj (c)tflN- 
MR 

fr :S 

xl-m .cm 


!wrs--l.«d 
cadrvn .cm 
kfcr .cm 

Ix .CM 

«craack.c» 
rfilir .cnd 


Mir .* 

fiu 


ilUs «4 
riitadr .cm 
19 * J cm 
uvwdr .cm 
zjplo* -Ihr 
zskw .cm 


uvartSr .dzc 
zrtml .cm 

hat .CM 
SdZ -CM 
X« .CM 


Btt »bi » </=H»lp, X4a*t): I 


Ein Dateiverzeichnis 
unter ZFILER 


10 CPC 10/11’91 










Bericht 


jedoch eine hierarchische Schachtelung 
nicht vorgesehen, da es fast keine 
CP/M-Programme gibt, die ein derarti¬ 
ges Verzeichnis unterstützen. 

User-Bereiche erhalten 
einen Namen 

Sind mehrere Laufwerke oder User-Be- 
reiche vorhanden, ist es manchmal 
schwierig, eine Datei zu finden oder 
aus einem anderen Bereich aufzurufen. 
Einfacher geschieht dies mit einem so¬ 
genannten SUCHPFAD. Für CP/M 
Plus ist neu, daß anstelle des normalen 
Suchpfades die Verwendung von User- 
Angaben zulässig sind. Der 
CP/M-2.2-Anwender mußte auf sol¬ 
chen Luxus bisher verzichten. Der 
PATH-Befehl dient zum Errichten und 
Anzeigen des Suchpfades (siehe Text¬ 
kasten). 

Beispiel für eine praktische Anwen¬ 
dung: 

1. DBASE.COM, DBASEOVR.COM 
und mehrere .CMD-Dateien sollen 
nach Laufwerk MO: kopiert werden. 

2. Eine Diskette in B: einlegen und, 
wenn vorhanden, alle .C?D-Dateien 
und alle ADR*.LBR nach MO: ko¬ 
pieren. 

3. Alle komprimierten Dateien sollen 
entkomprimiert und die in Libraries 
(.LBR) abgelegten Dateien ausgepackt 
werden, damit unter DBASE damit ge¬ 
arbeitet werden kann. 

4. DBASE soll viel Speicher zur Verfü¬ 
gung gestellt bekommen; während sei¬ 
nes Ablaufs und anschließend sollen 
sofort wieder alle ZCPR-Extras zu Ver¬ 
fügung stehen. 

5. Nach Beendigung der Arbeit eine 
Daten-Diskette in B: einlegen und so¬ 
wohl die Datenbank als auch die verän¬ 
derten CMD-Programme, die für 
DBASE nötig waren, als Backup spei¬ 
chern. 

Ganz schön aufwendig, wenn man das 
ohne ZCPR realisieren will! Natürlich 
geht einiges über die raffinierte SUB- 
MIT-Steuerung, was aber gerade unter 


CP/M 2.2 einen Schreibzugriff auf AO: 
auslöst, wenn das Standard-Submit ver¬ 
wendet wird. 

Automatisierung mit 
ARUNZ.COM 
beziehungsweise 
CMDRUN.COM 

Unter ZCPR genügt zur Ausführung 
ein Befehl, der nur aus einem Buchsta¬ 
ben oder einem Wort besteht, solange 
der Befehl eindeutig ist. Wie geschieht 
das? Die Kommandozeile wird analy¬ 
siert und über den Suchpfad ein passen¬ 
der Befehl A.COM beziehungsweise 
ADRES.COM gesucht. Da dieser nicht 
aufzufinden ist, tritt der ALIAS-Pro- 
zessor ARUNZ in Aktion, den wir in 
CMDRUN.COM umbenannt haben. 
Dieser sucht die Datei AL1AS.CMD im 
Heimat-User und dort den passenden 
Befehl. Die zugehörige, zusammenge¬ 
setzte Kommandozeile wird interpre¬ 
tiert und ausgeführt. Für die obigen 
Operationen sieht das etwa so aus (Aus¬ 
schnitt aus ALIAS.CMD - einer Texlda- 
tei(!) des Anwenders): 

A=ADRES 

ACOPY $"TMTJTGBitte DBASE-Dis- 
kette einlegen und ENTER! “ 

; BO:DBASE*.COM RAM: /d 
;if exist BO:*.C?D;ACOPY 
BO:*.C?D RAM:;else;ECHO Keine 
*.C?D Dateien gefunden;fi; 

IF ex ist BO:*. LBR; ACOPY BO:*.LBR 
RAM: /d;else;ECHO Keine Dateien 
.LBR gefunden!;fi;UNLIBM;UCRAM; 
Z3PLUS small; DBASE 
adres;Z3PLUS large;echo “'Backup- 
Disk einlegen und Taste! “;SAK; 
UNLIBM 

M:;W Igel *.lbr *.*:$D$U 
URAM 

M:;uncrunch * ?Z?; PROTECT 
*.CMD;$D$U 

Das liest sich jetzt sehr kompliziert, im 
Grunde ist aber die Syntax nicht kom¬ 
plizierter als etwa in BASIC. Ein solches 
Mini-Menü kann jeder Anwender aus 
den reichhaltigen Beispielen innerhalb 
kürzester Zeit zusammenstellen und 


dann immer wieder verwenden. Die 
Fachleute unter Ihnen haben bestimmt 
nicht nur die Leistungsfähigkeit des Sy¬ 
stems erkannt, sondern schon gemerkt, 
daß viele “ALIASse“ in einer einzigen 
Datei Platz finden (bei den kleinen 
AMSTRAD-3-Zoll-Disks oft ein Pro¬ 
blem!) und daß ein gegenseitiger Auf¬ 
ruf von ALLAS-Befehlen möglich ist. 
Alles, was der Anwender in unserem 
Beispiel eingeben muß. ist A oder 
ADRES und < ENTER > . Er sieht da¬ 
nach nur noch die Meldungen 
“Bitte DBASE-Diskette einlegen und 
ENTER!“ 

sowie die Lademeldungen und danach 
die Aufforderung “Backup-Disk einle¬ 
gen und Taste! “ und Strike any 
key — 

Darüber hinaus kann jemand, der lie¬ 
ber menügesteuert arbeitet, mit dem 
Programm MENU.COM arbeiten, des¬ 
sen Scripts leichter erlernbar sind. 
Hochinteressant sind die Utilities 
VLU.COM und ZFILER.COM. VLU 
dient zum Bearbeiten sogenannter LI¬ 
BRARY-Dateien. also Sammeldateien, 
die eine Anzahl von anderen Dateien 
beinhalten. Man erkennt sie durch die 
Endung .LBR. Erzeugt werden sie un¬ 
ter CP/M mit NULU oder unter ZCPR 
eben auch mit VLU. NULU ermöglicht 
das Lesen gesqueezter Dateien. VLU 
das Lesen von gecrunchten Dateien in¬ 
nerhalb von Libraries, ohne diese aus¬ 
zupacken. Unkomprimierte COM-Da- 
teien kann man aus Libraries heraus 
ohne Auspacken aufrufen. 

Ein Vorteil von VLU ist die Fähigkeit, 
bei geöffneter Library auf ein anderes 
Laufwerk zuzugreifen und dorthin die 
Dateien “mitzunehmen“, um sie dann 
auszupacken. Mit ESC schaltet man 
den Pfeil-Cursor zwischen dem Datei¬ 
verzeichnis der Diskette und dem Inhalt 
der Library. 

ZFILER ist wohl das ausgefeilteste 
Tool der Z-Systeme nach ARUNZ. Es 
erlaubt ebenfalls komplexe Scripts, die 
jedoch über eine Makro-Taste wie etwa 
ESC-A (bis Z) direkt ausgelöst werden 
können. Dabei wird ein Zeiger mit den 
Cursor-Tasten über das Inhaltsverzeich¬ 
nis bewegt und der damit indizierte Da¬ 
teiname in einem Puffer abgelegt. Die¬ 
se Dateien werden dann beim Aufruf 
eines solchen Makros als Parameter an¬ 
genommen. 

Tritt ein Fehler auf, den das DOS be¬ 
merkt, so werden entsprechende 
ZCPR-Registcr gesetzt. Diese können 
von anderen Programmen oder Pro¬ 
grammteilen gelesen und übernommen 
oder auch modifiziert werden. ZCPR- 


AO:3ZOLL> PWD < ENTER > 







PWD, Version 1.0 

DU: DIR Name 

DU: 

DIR 

Name DU: DIR 

Name 

DU: 

DIR 

Name 

A 0: 3Z0LL 

A 

1: 

NOTIZEN 





B 0: UT 

B 

1: 

UT1 B 2: 

UT2 

B 

3: 

UT3 

B 10: MAGAZINE 

B 

15: 

HELP 





M 0: RAM 

M 

1: 

BASIC M 2: 

GRAFIK 




M 5: MODEM 

M 

10: 

TEMP M 14: 

DOCS 

M 

15: 

BASE 

AO:3ZOLL> (hier ist wieder unsere Kommando-Zeile!) 






Die Liste der Verzeichnismimen 
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»» S m ftrsios 1.4 «« 
-> «aasuM™ <~ 


FftCKftCE DATA 


fosidtfit Copland 
CPf: Cwwaftds 
Inyut/Qutput F*ck>9t 



iler 
j Utility 
ileneithn. 
Such?fad-Aasdrutk 



ZCPR3 SVSTIH DATA 


KöfliM -Paten 
Heswige-Puffer 
Environment MtfB 
Syst« File NaitfR 


I SHLfe Btte: 




Das Hauptmenü 
von ZSHOW 


Programme haben direkten Zugriff auf 
diese Register, auch ohne daß das DOS 
dies bemerkt. Hier hat man auch die 
Möglichkeit, seine eigenen, beispiels¬ 
weise deutschen Fehlermeldungen aus¬ 
zugeben. Abhängig vom Erfolg oder 
Mißerfolg eines Befehls wird der IF- 
Status des Flow-Command-Prozessors 
TRUE oder FALSE, wenn dies abge- 
fragt wurde. Hierdurch läßt sich ein 
Mißbrauch oder eine ungültige Be¬ 
handlung unterbinden. 


ZSHOW können Sie sich eine solche 
SHELL-Seitc ansehen. 

Der Shell-Stack erleichtert 
die Arbeit 

Wie auf einem Kartenstapel werden 
Programme hier abgelegt und wieder 
abgeholt. Man kann also aus Wordstar 
(zumindest aus der Version 4.0) den 
ZFILER aufrufen und aus diesem dann 


VLU. Ruft man statt dessen SHOW auf, 
kann man sich das Ergebnis im 
SHELL-Stack ansehen. Nach dem Ver¬ 
lassen des momentan aktiven Pro¬ 
gramms wird anstelle des Betriebssy¬ 
stems das darunterliegende Programm 
wieder aktiv und so weiter, bis wir wie¬ 
der in Wordstar sind. Durch die über¬ 
sichtliche Darstellung mit SHOW wird 
klar, wie so ein Shell-Stack arbeitet. 
Aber auch alle anderen wesentlichen 
Systemeigenschaften lassen sich gut er¬ 
kennen. 

Viele Anwendungen für CP/M existie¬ 
ren auch in speziellen ZCPR-Vcrsioncn. 
die auch die Eigenschaften der Register 
und Pfade mit berücksichtigen. Insge¬ 
samt sind seit dem Januar 1988 etwa 30 
MByte an Public-Domain- und Share- 
ware-Utilities produziert worden, die 
alle über die Adresse der SCUG bezo¬ 
gen werden können. 

Helmut Jungkunz/jg 


Eventuell außreteiide Fragen richten Sie bitte an: 

Schneidcr/Amstrad CPC User Group 
c/o Helmut Jungkunz 
Zachcrlsir. 14 
8045 Ismaning 


ZCPR-Programme sind 
universell einsetzbar 

Ein ausgefeilter Spezial-SUBMIT na¬ 
mens ZEX rundet die vom Anwender 
programmierbaren Hilfs-Utilities ab 
und ergänzt sie um wichtige automati¬ 
sche Input-/Output-Möglichkeiten, die 
durch ein Software-Interface zum 
ZCPR ausgewertet werden können. 
Hier kommt die IF-ELSE-FI-Steucrung 
perfekt zum Einsatz. 

Ein weiteres Plus von ZCPR besteht 
darin, daß einmal an die Adresse HEX 
100 geladene COM-Dateien mit GO 
noch einmal aufgerufen werden kön¬ 
nen, ohne daß sie dazu vom Laufwerk 
geladen werden müssen. Das kann ganz 
erheblich Zeit sparen. Außerdem kann 
sogar dazwischen die Diskette gewech¬ 
selt werden, solange das auszuführende 
Programm ohne Overlays arbeitet. Die 
neuen Möglichkeiten des erweiterten 
SUBMIT-Prozessors ZEX sind ein zu¬ 
sätzlicher Pluspunkt. Sprungmarken 
und Rekursion sind die herausragend- 
sten Merkmale dabei. ZCPR3 und hö¬ 
her hat vier sogenannte SHELL-Stacks. 
Das sind Puffer, in denen die Namen 
und Adressen von "auf Eis gelegten" 
Dateien enthalten sind. Bei Bedarf kön¬ 
nen diese in der entsprechenden Rei¬ 
henfolge aktiviert werden. Mit 


AO:3ZOLL>path 

SETPATH Version 1.0 ;ab hier Zusatzkommentar 


Symbolic 

DU 

DIR 

;Form der Darstellung 

M15: 

M15: 

BASE: 

;Heimatbereich dieses ZCPRs 

B0: 

B0: 

UT: 

:Suche auf B0: fortsetzen 

MO: 

MO: 

RAM: 

:oder auf der RAM-Disk User 0 

$0: 

A0: 

3ZOLL: 

;aktuelles Laufwerk, UserO 

M15: 

M15: 

BASE: 

:notwendiger Abschluß Heimat 


AO:3ZOLL> 

Da in diesem System ein anderer Heimat-User als A0: eingetragen ist, können die Disketten in 
A: und B: beliebig gewechselt werden. 

Der PATH-Befehl zum Errichten und Anzeigen des Suchpfades 


IQUIETI 

;; keine Meldung ausgeben 

shv /q $1 S2 $3 $4 $5 $6 $7 $8 

;; Parameter-Dummys in SHELL-VAR 

IRING WAITI 

;; piepst und wartet auf ENTER 

; = START 

;; Sprungmarke START (Label) 

ISAYI 

;; Beginn einer Textausgabe Guten Tag! 

Sie können jetzt mit dem Kopieren be¬ 
ginnen, bitte die Diskette 1 # 
einlegen! == > Abbruch mit ENDE 
möglich < = = 

IENDSAYI 

;; Ende der Textausgabe 

IWAITI 

;; wartet auf Tastendruck 

;=KOPIEREN <M:;SDZ 

;; automatische Eingabe 

ISAYI 

Welche Datei nach B: Kopieren? 

IENDSAYI 

;Hole $1 IF error 7 goto ERROR7 


;; ERROR7 = Disk Full COPY 

IUNTILI $1 B: 

;; warte auf Enter und kopiere $1 goto 

Kopieren 

;; Kopiere $1 nach B: bis Disk Full 

;=ERROR7 


ISAYI Wieso legen Sie eine randvolle Diskette ein? IENDSAYI 

goto START und so weiter 



Ein ZEX-Script 
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Die schönsten Schwarzweißgrafiken 

Sicherlich haben Sie es schon in der Vorschau der letzten PCI gelesen — Sie 
werden wieder einmal gefordert. Dieses Mal wenden wir uns an Ihre künst¬ 
lerische Ader - aber lesen Sie selbst. 


Passend zu dem veränderten Erschei¬ 
nungsbild der CPC International hätten 
wir von Ihnen gerne eine Schwarzweib¬ 
grafik, die mit einem der gängigen Gra¬ 
fikprogramme für den CPC bezie¬ 
hungsweise auch den PCW/Joyce ge¬ 
zeichnet wurde. Für den CPC sollten 
Sie entweder ein Programm verwen¬ 
den, das einen 17-kByte-Screen er¬ 
zeugt, der sich einfach unter BASIC mit 
LOAD“name“.&COOO einladcn läßt, 
oder aber eins der in der CPC Interna¬ 
tional veröffentlichten Programme. 

Hier seien zum Beispiel Artworx (CPC 
11/88) oder aber Paint Master (CPC 
8/86) genannt. 

Auch auf der PCW-Seite können wir 
aufgrund der Fülle an Grafikprogram¬ 
men und der ungenormten Grafikfor¬ 
mate leider nur bestimmte Software zu¬ 
lassen. Da wir aber davon ausgehen, 
daß viele von Ihnen eins der genannten 
Gratikwcrkzcuge besitzt, dürfte dies je¬ 
doch keine Einschränkung bedeuten. 

Bitte haben Sie Verständnis, daß nor¬ 
malerweise nur Grafiken in den folgen¬ 
den Formaten angenommen werden: 


• Micro-Design 

• The Dcsktop Publisher 

Sollten Sie dennoch eine andere Gra- 
fiksoftware verwenden, müßten Sie 
ebenfalls die zum Einladen und An¬ 
schauen der Grafik nötigen Programm¬ 
teile auf die Diskette kopieren. Recht¬ 
liche Bedenken brauchen Sie nicht zu 
haben, da das Datenmaterial nach dem 
Gebrauch vernichtet wird. 

Preise 

Natürlich sollen Sie diese Arbeit nicht 
umsonst tun. Wir haben für Sie über 50 
Spiele und Anwendungen für CPC und 
PCW zusammengetragen, die wir unter 
den besten Grafikern aufteilen. Die 
ausgewählten Grafiken werden zusätz¬ 
lich in den nächsten Ausgaben der CPC 
vorgestellt. 

Sollten Sie also Spaß am Malen haben, 
beachten Sie bitte folgendes: 

• Die Grafik muß eins der oben ge¬ 
nannten Formate haben. 

• Kopieren Sie die Grafikdatei auf eine 
Diskette (auch 3,5 und 5,25 Zoll), und 
geben Sie unbedingt an, welches For¬ 


mat diese hat (VORTEX, CF2, 
CF2DD. und auf welchem Computer 
sie erstellt wurde. 

• Da die besten Bilder in der CPC ver¬ 
öffentlicht werden sollen, benötigen 
wir noch die folgenden Angaben von 
Ihnen, die Sic bitte im ASCII-Format 
auf die Diskette spielen: 

- Ihr Name, Alter. 

— Wie lange besitzen Sie Ihren Com¬ 
puter schon? 

— Wozu wird der Computer am häu¬ 
figsten benutzt? 

- Eine kurze Erklärung, die Ihre Ge¬ 
danken bei der Erstellung der Gra¬ 
fik beinhaltet. 

• Beschriften Sie die Diskette mit Ih¬ 
rem Namen und eventuell dem Titel des 
Bildes. 

Haben Sie dies alles erledigt, können 
Sie die Diskette bis zum 01. 11. 1991 an 
folgende Adresse abschicken: 

DMV Verlag 
Red. CPC International 
— Stichwort Monochromes - 
Postfach 250 
3440 Eschwege 

Nun sollten Sic sich in Geduld üben, 
um sich dann beim Erscheinen der 
CPC 2/3’92 über ein vielleicht etwas 
verspätetes Weihnachtsgeschenk freuen 
zu können. rc 
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Personality 


Schwabenfleiß 

vor den Toren von 

München 

Thomas Wiedmann - 
“Mister PCW“ hat ein 
Herz für 8-Bit-Freunde 



“Unterm Dach juchhe - Wer die Firma “Wiedmann Unternehmensbe¬ 
ratung und Handel“ am Korbiniansplatz 2 in Ismaning besucht, dem wird 
spontan der alte Gassenhauer einfallen. Thomas Wiedmann und sein Team 
(auf dem Bild Karin Koska und Birgit Slonek) halten nichts von Tiefstape¬ 
lei: Das sechste und siebte Stockwerk eines siebenstöckigen Neubaus beher¬ 
bergen eine der letzten deutschen Hochburgen der Amstrad-8-Bit-Compu- 
terkultur. 


In luftiger Höhe wird der Besucher zu¬ 
nächst von sauber gestapelten Geräten 
und Utensilien rund um die Amstrad- 
Computersy stemc begrüßt. Man 
merkt, hier wird verkauft: in erster Li¬ 
nie Hard- und Software, Problemlö¬ 
sungen auf der Basis von Amstrad- 
Computern, bevorzugt der PCW-Se- 
rie. Immer größeren Raum nimmt frei¬ 
lich in einer Zeit, in der Computer und 
Programme quasi zur Supermarktware 
geworden sind, der Verkaui von 
Know-how ein. Was, so Thomas 
Wiedmann, nützt einem Bauunterneh¬ 
mer ein noch so schneller 486-PC’ mit 
einem “ganz, ganz tollen“ Universal¬ 
programm von der Stange, wenn er da¬ 
mit alleingelassen ist und erst mühsam 
herausfinden muß, wie er die Arbeit 
seiner Handwerkertrupps damit ver¬ 
walten und seine Betriebskalkulation in 
den Griff bekommen kann? 

Die Lösung spezieller Anwenderaufga¬ 
ben erfordert durchaus nicht immer 
teure Hardware auf IBM-kompatiblcr 
PC-Basis. Die Systeme, die Thomas 
Wiedmann verkauft, sind auf die An¬ 
forderungen des deutschen Benutzers 
angepaßt und sparen, sofern es sich um 
PCW-Lösungen handelt, meist immer 
noch einiges an Geld gegenüber No- 
Name-PC-Lösungen ein. Natürlich 
gibt es auch PC-SySterne bei Wied¬ 
mann, allerdings ist auch hier nur die 
Marke Amstrad vertreten. Man ist der 
Meinung, daß der Verzicht auf Mar¬ 
kenvielfalt sich in einer größeren Kom¬ 
petenz in bezug auf die Technik der 


verkauften Amstrads auszahlt. So gibt 
es denn auch bei Wiedmann in puncto 
Amstrad fast nichts, was es nicht gibt. 
Ersatzteile, Zubehör, Anleitungen, 
Software jeder Art und Fachbücher las¬ 
sen die fast 200 Quadratmeter der 
Wiedmannschen “Dachfestung“ schon 
wieder eng werden. In einem Lager¬ 
raum stapeln sich Drucker für eine 
Verkaufsaktion bis unter die Decke, in 
einem anderen sind vom Gehäuse bis 
zum Netztrafo alle möglichen und un¬ 
möglichen Einzelteile der verschiede¬ 
nen Amstrad-Computer und Drucker 
untergebracht. 

Keine Angst 
vorm Wettbewerb 

Ein guter Teil der Geschäfte wird bei 
Wiedmann über den Postversand abge¬ 
wickelt. Schaufenster gibt es nicht, 
weil Standort und Unternehmens- 
Schwerpunkt nicht in erster Linie für 
Laufkundschaft sprechen. Dennoch 
sind Besucher willkommen und werden 
zuvorkommend bedient. Natürlich gilt 
es auch häufig, “Hausbesuche“ zu ma¬ 
chen. Dann setzt sich Thomas Wied¬ 
mann in seinen nicht mehr jungen, aber 
urgemütlichen Mercedes und sucht sei¬ 
ne Amstrad-Kunden vor Ort auf. 

Der Markt auf dem Sektor des Personal 
Computing ist eng geworden, Preis¬ 
kämpfe toben. Discountgeschäfte, die 
knallhart mit hohen Stückzahlen und 
niedrigen Gewinnspannen kalkulieren, 
machen Händlern nach traditionellem 
Muster das Leben schwer. Für Thomas 


Wiedmann heißt das: sich über den 
Stand der Technik auf dem laufenden 
halten, Verkaufs-Sonderaktionen star¬ 
ten, alle Kundendaten mit einer mög¬ 
lichst effizienten EDV verwalten, da¬ 
mit ohne Umwege darauf zugegriffen 
werden kann. In einem Novell-Netz- 
werk läuft eine Datenbank, die Adres¬ 
sen und Bestelldaten von 25000 Kun¬ 
den verwaltet und auf Knopfdruck 
blitzschnell benötigte Informationen 
liefert. So weiß Wiedmann, welches 
Rechnersystem ein schon mal erfaßter 
Kunde hat, was er bislang schon erwor¬ 
ben hat — und somit auch, was er viel¬ 
leicht noch brauchen könnte. 

Was die PCW-Systeme von Amstrad 
angeht, gehört Wiedmann sicher zu 
den ersten Adressen in Deutschland. 
So erfuhren wir staunend, daß er von 
der Firma Amstrad regelmäßig konsul¬ 
tiert wird, wenn es um PCWs und ihre 
User geht. Die brandneuen PCW-Mo- 
delle 9256 und 9512 plus, die die deut¬ 
sche Amstrad-Niederlassung ihren 
Kunden gern vorenthalten möchte, 
wird Wiedmann selbst importieren - 
natürlich in deutscher Version. 

Ein markiger Spruch Wiedmanns, den 
man vielleicht eher von einem Alt-In¬ 
dustriellen ä la Dagobert Duck erwartet 
hätte, lautet “Wer dem Markt hinter¬ 
herläuft, hat das falsche Business ge¬ 
wählt“. Obgleich die Ducks in Form 
eines handsignierten großen Bildes in 
Wiedmanns Büro einen Ehrenplatz ha¬ 
ben, ist er alles andere als ein “Onkel 
Dagobert“: Gerade mal 32 Jahre alt, 
wirkt er eher wie ein Student in der 
hektischen Examensphase. Hektisch 
geht es auch tatsächlich zu — kaum 
zehn Minuten vergehen, ohne daß Te¬ 
lefon oder Faxgerät ungeduldig auf 
sich aufmerksam machen. 

Obgleich seine Firma sich in Ismaning 
bei München befindet, ist Thomas 
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Hölzerne Gestalten bewachen den Aufgang zum 
7. Stock — hinter ihrer Brust verbergen sich al¬ 
koholische Erfrischungen ... 


Wiedmann kein “Urbayer“. 1959 in 
Alfdorf bei Schwäbisch Gmünd in 
Württemberg geboren, gehört er zum 
Stamme der Schwaben, deren Fleiß ja 
über die Grenzen des “Musterländles“ 
hinaus sprichwörtlich geworden ist. 

Kein “American Dream“ 

Seine Eltern sind Inhaber einer Bau- 
und Eisenhandelsfirma. Schon vor, be¬ 
ziehungsweise parallel zu seinem Ab¬ 
iturabsolvierte er eine Ausbildung zum 
Industriekaufmann. Hier hatte er im 
EDV-Unterricht seine ersten Berüh¬ 
rungspunkte mit der Computertechnik 
- damals noch an einem Rechner, der 
die Größe mehrerer Schränke hatte, 
von der Leistung her aber jedem CPC 
unterlegen war. 

Anschließend nahm Thomas Wied¬ 
mann das Studium der Betriebswirt¬ 
schaft auf. Schon während des Studi¬ 
ums begann er, sein heutiges Geschäft 
aufzubauen. Die ersten Geschäftsräu¬ 
me in München-Freimann boten gera¬ 
de zwei Jahre lang genug Platz, und so 
war schon Ende 1988 der Umzug der 
Firma vor die Tore Münchens nach Is¬ 



Ersatzteile jeder Art zu den 8-Bit-Amstrad-Ge- 
räten sind auf Lager 


maning angesagt. Hier hat man nun in 
ruhiger Umgebung, der es auch an 
Grün nicht fehlt, ein angenehmes Do¬ 
mizil gefunden - bis das nächste Platz¬ 
problem wieder zu drücken beginnt. 
Das heutige Team besteht aus Karin 
Koska, Birgit Slonek, zwei bis drei 
Halbtagsbeschäftigten und einigen frei¬ 
en Mitarbeitern, die beispielsweise die 
Übersetzung von Handbüchern vor¬ 
nehmen oder die Werkstatt betreuen. 

Drei Wünsche 

Jeder hat so seine Wünsche. Herr 
Wiedmann bekam von uns drei Fragen 
gestellt, die wohl jeden Händler betref¬ 
fen. Zum Abschluß hier nun seine Ant¬ 
worten: 

Was wünschen Sie sich von den 
Kunden? 

“Jeder Kunde sollte aufmerksam und 
kritisch die den Hard- und Software¬ 
produkten beiliegenden Anleitungen 
lesen, denn häufig hören wir bei telefo¬ 
nischen Anfragen zu einem Produkt: 
’Nee —das Handbuch habe ich nicht 
gelesen, das muß doch auch so gehen.’ 
Daß sich in die Handbücher auch ein¬ 
mal Fehler einschleichen, ist natürlich 
nicht auszuschließen. Deshalb sind wir 
jedem Kunden für Hinweise auf ir¬ 
gendwelche Patzer dankbar.“ 

Was wünschen Sie sich von der Presse ? 

“Freiere, unvoreingenommenere Be¬ 
richterstattung. Oft ist es so, daß klei¬ 
nere Firmen und Händler strikt überse¬ 
hen werden. Produkte großer Firmen 
füllen ungeachtet ihrer tatsächlichen 
Qualität ganze Seiten. Da werden 
Bugs, miese Dokumentation und leere 
Versprechungen gern verziehen. Wenn 
man sich aber als Kleiner mal einen 
Fehler leistet, wird man sofort als Di¬ 
lettant angeprangert, und keiner würde 
noch etwas bei einem kaufen.“ 



Software, so weit das Auge reicht — PCW- und 
CPC-Freunde finden hier auch noch so manche 
Rarität 



Ein Festival der Typenräder 

Was wünschen Sie sich von den Her¬ 
stellern ? 


“Reellere Ankündigungspolitik auf 
Messen. Oftmals werden dort handge¬ 
fertigte Exemplare vorgeführt, die 
noch gar nicht bis zur Serienreife ge¬ 
bracht wurden. Kunden sehen diese 
Luftschlösser und wollen die neuen Sa¬ 
chen dann bei ihrem Händler erstehen. 
Der ist natürlich nicht in der Lage, an 
ein vorangekündigtes Exemplar heran¬ 
zukommen und wird womöglich noch 
als unfähig bezeichnet. Die aktuell gän¬ 
gigen Produkte, die er am Lager hat, 
kann er dann aber natürlich auch nicht 
mehr verkaufen, weil sie ja vermeint¬ 
lich bereits überholt sind. So verkauft 
er lange Zeit gar nichts — und der Kun¬ 
de ist auch nicht zufrieden, weil er hin- 
gehalten wird. 

Ein weiterer Wunsch wäre, daß übliche 
Standards auch weiterhin erhalten blei¬ 
ben und besser als bisher beachtet wer¬ 
den. Das betrifft Steckverbindungen 
von Tastaturen und Monitoren ebenso 
wie softwaremäßige Standardfor¬ 
mate.“ 


Vielen Dank! 


(sz/jg) 



Die Weltkarte symbolisiert Weitblick, das freund¬ 
liche Lächeln gibt Datenbanken und kaufmänni¬ 
schem Alltag einen sympathischen Touch 
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Schach matt 
in zehn Spielen 


Colossus 4 Chess für CPC und PCW 

Sowohl auf dem CPC als auch auf dem PCW gibt es eine Variante des 
Schachprogramms Colossus 4 Chess. Was liegt also näher, als die zwei 
Computer einmal gegeneinander spielen zu lassen und zu sehen, wer am 
Ende dem anderen unterliegt? 


Wie in der Anleitung zu Colossus 4 
steht, ist es ungeschlagener Meister im 
Bereich des Computerschachs. Eine 
Liste aller geschlagenen Schachpro- 
gramme anderer Hersteller zeigt beein¬ 
druckend auf, daß diese Behauptung 
nicht ohne Grund aufgestellt wird. Fin¬ 
den CPC wurde leider nur ein geschla¬ 
genes Programm aufgelistet. Es han¬ 
delt sich hierbei um MasterChess, wel¬ 
ches von Amsoft und Mikro-Gen auf 
den CPC umgesetzt und von Colossus 
4 genau lömal hintereinander besiegt 
wurde. 

Obwohl die besagte Liste von der 
Apple-II-Version ausgeht, kann man 
sagen, daß sowohl der CPC als auch 
der PCW eine in etwa gleiche Spiel¬ 
starke wie der Apple II haben. 
Trotzdem, ein Test muß her. Wer w'ird 
besser sein? Wer wird Sieger? 



Das Duell 


Im ersten Spiel benötigte der PCW ge¬ 
nau 32 Züge, um den CPC matt zu set¬ 
zen. Hierbei lieferten sich die zwei 
Programme, wie Sie der ersten Tabelle 
entnehmen können, eine heiße 
Schlacht. Der PCW behielt während 
des ganzen Spiels die Übermacht und 
setzte den CPC langsam, aber sicher ins 
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Malt. Auch das zweite Spiel verlief für 
den PCW mehr als gut. Obwohl sich 
der CPC sehr gut zu wehren wußte, 
konnte hier ebenfalls vom PCW ein 
klarer Sieg errungen werden. Auch 
dieses Spiel haben wir für Sie protokol¬ 
liert. 

Wie in der Überschrift schon angedeu¬ 
tet, haben wir insgesamt zehn Spiele 
durchgeführt. Hier konnte der CPC 
sich zumindest zweimal durchsetzen: 


Spiel 

Eröffnung 

Sieger 

3 

CPC 

CPC 

4 

PCW 

PCW 

5 

CPC 

PCW 

6 

PCW 

PCW 

7 

CPC 

CPC 

8 

PCW 

PCW 

9 

CPC 

PCW 

10 

CPC 

PCW 


Colossus 4 kennt verschiedene Eröff¬ 
nungen, was für den Spieler bedeutet, 
daß er sich immer wieder auf eine an¬ 
dere Situation einstcllen muß. Da das 
Programm nicht nur darauf aus ist, Fi¬ 
guren ohne Rücksicht auf Verlust zu 
schlagen, sondern vielmehr systema¬ 
tisch den Gegner in die Enge treibt, 
wird das Spiel auf jeden Fall interes¬ 
sant. 

Colossus 4 stellt für jeden eine Heraus¬ 
forderung dar, denn das Programm hat 
fünf verschiedene Spielstärken, wobei 
jeweils entsprechend mehr Züge '‘vor¬ 
ausgedacht“ werden müssen. Für die 
höchste Spielstufe berechnet das Pro¬ 
gramm zwölf Halbzüge und wählt dar¬ 
aus den sinnvollsten aus. 

Obwohl die CPC-Version aus dem Jahre 
1987 genau ein Jahr neuer ist als die für 
den PCW (1986), hat letztere bewiesen, 
daß Sie wesentlich leistungsfähiger ist. 
Sowohl Bildschirmaulbau als auch 


Schach in aller Kürze: 

Bei Schach (-> König) geht es darum, 
auf einem acht mal acht Felder großen 
Spielfeld durch Setzen seiner Steine 
bei vorbestimmten Zugmöglichkeiten 
(Richtung/Anzahl der Schritte) entwe¬ 
der alle gegnerischen Steine zu fangen 
oder aber den König des Gegners matt 
zu setzen. Matt bedeutet hierbei, daß 
der gegnerische Spieler seinen König 
in keine Richtung bewegen kann, ohne 
daß er von dem Mitspieler geschlagen 
wird. Als Figuren stehen jedem der 
zwei Spieler zur Verfügung: Acht 
Bauern, zwei Türme, zwei Springer, 
zwei Läufer, eine Dame und ein 
König. 


Funktionsumfang der CP/M-Version 
überzeugen vollkommen und sind mit 
dem CPC-Programm nicht zu verglei¬ 
chen. So berechnet der PCW ständig ei¬ 
nen vom Gegner erwarteten Zug und 
gibt diesen auf dem Bildschirm aus. 
Ebenfalls werden die letzen sieben 
Züge beider Spieler dargestellt. 

Die höhere Spielstärke des PCW be¬ 
gründet sich sicherlich darin, daß das 
Programm die angepaßte Ursprungs¬ 
version von dem Apple ist. Das CPC- 
Programm hingegen wurde komplett 
neu geschrieben. 

Schach!!! 

Das Spiel Schach fand innerhalb seiner 
(äst zweitausendjährigen Geschichte 
immer wieder neue Freunde aus den 
unterschiedlichsten Kreisen. Als es im 
zehnten Jahrhundert nach Christi in die 
europäischen Länder kam, war es nur 
den Reichen Vorbehalten, das Spiel der 


Könige zu ihrer Freizeitbeschäftigung 
Nummer eins zu ernennen. Gerade die 
Einfachheit der Regeln ließ es jedoch 
nicht lange nur in diesen Kreisen ver¬ 
weilen und auch der einfache Mann 
gönnte sich ab und an ein Spiel auf dem 
acht mal acht Felder großen Brett. 

Im Wandel der Zeit, sprich im 18. Jahr¬ 
hundert, war es dann soweit: Die ersten 
“Schachcomputer“ wurden der Öffent¬ 
lichkeit vorgestellt. Die Tatsache, daß 
es damals noch gar nicht möglich war, 
solch komplexe Apparaturen zu ent¬ 
werfen, wurde erst entdeckt, als bei ei¬ 
nem weiteren Wettkampf zwischen 
“Computer“ und Mensch ein Feuer 
ausbrach. Plötzlich sprang aus der Er¬ 
findung des Barons Wolfgang von Kem- 
pclen ein kleinwüchsiger Türke hervor. 
Der Schwindel war entdeckt. Nach die¬ 
sem Prinzip wurden noch zwei weitere 
“Maschinen“ gebaut. Ajeeb und Me¬ 
phisto erreichten jedoch nie den Be¬ 
kanntheitsgrad des “Türken“. 

Endlich echt wurden die Schachcom¬ 
puter erst, als der Amerikaner C.E. 
Shannon im Jahre 1949 beschrieb, wie 
ein Schachprogramm aufgebaut sein 
sollte. Er legte auch die Grundsätze für 
einen Schachcomputer fest. 

1956 besiegte das Programm Maniac I, 
das auf einem mehrere Tonnen schwe¬ 
ren Gerät lief, erstmals einen menschli¬ 
chen Gegner, der — oder besser die 
—erst zwei Wochen zuvor das Schach¬ 
spielen erlernt hatte. Zwar wurde hier¬ 
bei das Spielfeld auf sechs mal sechs 
Felder begrenzt, die Läufer wurden 
weggelassen und die Spielregeln ver¬ 
einfacht, der Triumpf der Programmie¬ 
rer war jedoch ziemlich groß. 

Die Mikroelektronik hat zwar seitdem 
enorme Fortschritte gemacht, doch 
wurde der Sieg eines Computers gegen 
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Colossus 4 uiif dem CPC zeichnet sich gegenüber anderen Schachprogram- 
men au f diesem Gerät besonders durch seine Spielstärke aus 


Die PCW- Version präsentiert sich - im Gegensatz zur CPC-Version, bei 
der nur das Schachbrett oder aber die Zusatzfunktionen angezeigt werden 
— sehr übersichtlich 
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einen Schachprofi nur selten erreicht. 
Sollte dies trotzdem der Fall gewesen 
sein, würde ich das als einen Achtungs¬ 
erfolg deuten. Lediglich die leistungs¬ 
fähigsten Großrechner, die aufgrund 
der Speicherkapazität wesentlich mehr 


Das erste Spiel: Der PCW eröffnet 


Zug 

PCW 

CPC 

1 

b1-c3 

d7-d5 

2 

e2-e4 

d5-d4 

3 

c3-e2 

e7-e5 

4 

e2-g3 

c8-e6 

5 

d2-d3 

b8-c6 

6 

a2-a3 

g7-g6 

7 

f2-f4 

e5xf4 

8 

Clxf4 

f8-d6 

9 

d1-d2 

d6xf4 

10 

d2xf4 

g8-f6 

11 

gi-f3 

e8-g8 

12 

f1-e2 

f8-e8 

13 

el-gl 

f6-g4 

14 

f3-g5 

g4-e5 

15 

al-dl 

d8-d7 

16 

gl-hl 

a8-d8 

17 

dl-ei 

d7-d6 

18 

f1-f2 

d6-c5 

19 

e2-d1 

d8-d6 

20 

ei-fl 

e8-e7 

21 

a3-a4 

a7-a5 

22 

g5xe6 

d6xe6 

23 

d1-f3 

f7-f6 

24 

b2-b3 

e5xf3 

25 

f4xf3 

c6-b4 

26 

f3-e2 

f6-f5 

27 

e2-f3 

e6-b6 

28 

e4xf5 

b4xc3 

29 

f5xg6 

h7xg6 

30 

f3-f8 + 

g8-h7 

31 

f2-f7 + 

e7xf8 

32 

fl xf7 + 

Schach matt 


Züge im voraus berechnen können, 
stellten für wahre Schachkünstler wie 
Kasparov oder Fisher einen zu respek¬ 
tierenden Gegner dar. Zu viele Berech¬ 
nungen mußten durchgeführt werden, 
um einen selbstlernenden Computer in 
die Lage des “Denkens“ eines Men¬ 
schen zu versetzen. Somit fiel allein 
schon aufgrund der Speicherkapazität 
und der Rechengeschwindigkeit ein 
Computer mit Z80-Prozessor aus. 

Inzwischen gibt es für den fortgeschrit¬ 
tenen Schachspieler und für den Anfän¬ 
ger viele interessante Möglichkeiten - 
vom Schachbrett bis hin zum Schach¬ 
computer - gegen einen individuell 
für ihn geeigneten Gegner anzutrc- 
tctcn. 

Interessantes Allerlei 

Wie Sie dem Artikel entnehmen kön¬ 
nen, gibt es noch eine Reihe weiterer 
Schachprogramme für den CPC und 
PCW. Hier kurz eine Übersicht: 

CPC: 

Superchess (1) 

3D Voice Chess 
Master Chess (1) 

Cyrus II Chess 
Colossus Chess 4.0 (1) 

PCW: 

Colossus Chess 4.0 (1) 

Cyrus 2d Chess-PCW (2) 

Clock Chess 88-PCW (2) 

3D Clock Chess (1) 


Das zweite Spiel: Der CPC eröffnet 


Zug 

CPC 

PCW 

1 

c2-c4 

g8-f6 

2 

d2-d4 

b8-c6 

3 

b1-c3 

e7-e5 

4 

d4-d5 

c6-e7 

5 

c1-g5 

e7-g6 

6 

e2-e4 

f8-c5 

7 

gi -f3 

e8-g8 

8 

f 1 -d3 

h7-h6 

9 

g5-d2 

d7-d6 

10 

el-gl 

c8-g4 

11 

al-cl 

a8-c8 

12 

d1-e2 

d8-e7 

13 

d2-e3 

c5xe3 

14 

e2xe3 

g6-f4 

15 

f3-d2 

c8-d8 

16 

d3-c2 

a7-a5 

17 

f2-f3 

g4-h5 

18 

c2-a4 

h5-g6 

19 

c3-b5 

b7-b6 

20 

c1-c3 

g6-h5 

21 

flß-el 

h5-g6 

22 

d2-b3 

f6-h5 

23 

e3-d2 

f7-f5 

24 

e4xf5 

f8xf5 

25 

b5-d4 

f5-g5 

26 

d4-c6 

e7-f6 

27 

g2-g3 

f4-h3 + 

28 

gi-hi 

d8-f8 

29 

c3-e3 

g8-h8 

30 

a4-b5 

f8-f7 

31 

e1-e2 

g6-e4 

32 

hi-g2 

e4xf3 + 

33 

e3xf3 

f6xf3 + 

34 

g2-h3 

f3-f5 + 

35 

h3-g2 

f5-f1 + 

36 

Schach matt 



Bezugsquellen: 

(1) Elektroschach, Adresse siehe innen 

(2) Obermeier. Binder Sir. 20. 4972 Löhne 


Wer jetzt Salz geleckt und Interesse am 
Thema Schach und Computer gewon¬ 
nen hat, sollte sich an folgende Firma 
wenden, um zu sehen, was es alles an 
Soft- und Hardware oder auch an Lite¬ 
ratur zu diesem Thema gibt: 

ELEKTROSCHACH; 
Schachcomputer, Bücher, Spiele, 
Uhren 

Heide Ketterling; Dudenstraße 32; 
1000 Berlin 61. 

Ralf Schößler-Niebergall 


Von uns empfohlene Literatur: 

Frickensehm idt: Schach mit dem Computer; 

Falken Verlag 

Schwarz: Heim-Schachcomputer 

Opfermann: Mit Schwarz gewinnen im Schach: Heyne 

Yasgcz: Schachcomputer, mis sie wirklich können: 

Beyer 

Uphoff: Das Software Experiment IDer Computer 
lernt: Minischach): CPC Schneider International 
12/86. DMV 
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Der Faden der Ariadne 


Der CPC kreiert Labyrinthe 


gespeichert, ob von einem Feld zum 
Nachbarfeld gegangen werden kann 
oder nicht. 

Statt in zwei Matrizen zu speichern, ist 
dies auch in einer Matrix möglich. 
Dann wird für jedes Feld gespeichert, 
wo sich die Wände befinden. Dazu wer¬ 
den für jedes Feld 4 Bit benötigt: Bit 1 
= oben, 2 = unten, 3 = links, 4 = 
rechts. 



Spiele, in denen Labyrinthe die Spiel¬ 
oberfläche darstellen, gibt es wie Sand 
am Meer. Bei den meisten Programmen 
sind die Labyrinthe fest abgespeichcrl 
oder können manuell mittels eines Edi¬ 
tors geändert werden. Nicht so bei 
Ariadne! Als 1-kByte-Programm wurde 
es uns zugesandt, aber wir hielten es ei¬ 
ner Extraveröffentlichung für würdig. 
Wer war Ariadne? Dazu ein Blick in die 
Vergangenheit: Schon zu Zeiten der al¬ 
ten Griechen übten Labyrinthe eine 
Faszination auf die Menschen aus und 
regten — wie die griechische Sagenwelt 
belegt — ihre Fantasie an. Wer hat nicht 
schon vom Labyrinth des Königs Minos 
von Knossos gehört, in welchem alle 
neun Jahre sieben Jünglinge und sieben 
Jungfrauen der Stadt Athen als Tribut 
dem Zwitterwesen Minotaurus geopfert 
wurden. Dies jedenfalls, bis sich The- 
seus, der Sohn des Königs von Athen, 
unter die Opfer mischte, um den Mino¬ 
taurus zu bezwingen. 

Was aber wäre aus dem Helden gewor¬ 
den. hätte sich nicht Ariadne, die Toch¬ 
ter des Minos, in ihn verliebt und ihn 
mit der Idee, den Weg aus dem Laby¬ 
rinth mit Hilfe eines Fadens zu finden, 
gerettet. Wahrscheinlich hätte er. mit 
heutigen Worten gesagt, als hirnloser 
Macho dagestanden, der zwar mutig 
und stark genug war, das Untier zu be¬ 
siegen. aber zu dumm, um aus dem La¬ 
byrinth zu finden. Was liegt also näher, 
als ein Programm, das sich dieser Idee 
bedient, nach Ariadne zu benennen. 

Ohne Faden nur ein 
hirnloser Macho 

In unseren Tagen hat die Faszination 
der Labyrinthe dazu geführt, daß auch 
Computerprogramme immer wieder 
auf der Labyrinth-Idee basieren. Wer 
kennt nicht die Advcntures, in denen 
man selbst der Held ist, der in ver¬ 
schlungenen Labyrinthen siegreich ge¬ 
gen alle Arten von Monstern besteht, 
aber letzten Endes nicht den Weg her¬ 
ausfindet. weil keine Programmiererin 


Ariadne da ist, die an ein Fadenknäuel 
gedacht hätte. 

Verlassen wir nun diese schillernde 
Welt der alten Griechen und CPC- 
Abenteurer und beginnen ganz von 
vorn. So stoßen w'ir früher oder später 
auf die Erkenntnis, daß (auch wenn cs 
uns manchmal so scheinen mag) die 
Labyrinthe in den Computern nicht von 
vornherein vorhanden sind, sondern 
erst durch Software generiert werden 
müssen. Wir müssen uns also erst das 
Problem schaffen, welches wir lösen 
wollen. 

Das Ziel soll nun ein Programm sein, 
das in der Lage ist, selbst solche Laby¬ 
rinthe zu erzeugen und grafisch auf 
dem Bildschirm darzustellen. Und 
zwar so, daß das gesamte Labyrinth 
überschaubar ist und der Bildschirm 
voll ausgenutzt w'ird. Der Rechner soll, 
in Anlehnung an die Idee Ariadnes, sy¬ 
stematisch nach dem Weg suchen. Eine 
zusätzliche Möglichkeit ist die Joy¬ 
sticksteuerung. mit deren Hilfe der 
Ausgang ebenfalls zu finden ist. 

Konkurrenz - 
Mensch gegen Computer 

Wie ist es nun möglich, ein solches La¬ 
byrinth durch den Computer aufzubau¬ 
en? Die Grundstruktur eines Laby¬ 
rinths besteht aus Mauern oder Trenn¬ 
wänden. Geht man davon aus, daß sich 
die Grundfläche eines realen Laby¬ 
rinths in gleich große rechteckige Fel¬ 
der zerlegen läßt, so gibt es im wesent¬ 
lichen zwei unterschiedliche Abbil¬ 
dungsmöglichkeiten. Die erste Mög¬ 
lichkeit besteht darin, in einer Matrix 
zu speichern, ob auf einem Feld ein 
Mauerteil steht oder ob es sich bei dem 
Feld um den Teil eines Wegs handelt. 
Bei der zweiten Abbildungsart wird von 
der physischen Raumausdehnung der 
Mauern abstrahiert. Mauern haben nur 
noch eine logische Dimension. Es wird 


Zum Vergleich, w'elchc Art mehr Spei¬ 
cher benötigt, ist der Feldervergleich 
nicht brauchbar, weil bei der zweiten 
Art die Zustände an den Verbindungs¬ 
stellen der Felder zu speichern sind. 
Läßt man es offen, wie der Rand sein 
kann, so muß auch er gespeichert wer¬ 
den, denn nur der Rand eines rundhe¬ 
rum geschlossenen Labyrinths wäre 
eindeutig und müßte nicht extra gespei¬ 
chert werden. Im ersten Fall hat man 
also dicke Mauern (etwa einen Laby¬ 
rinthgarten mit dicken Hecken), im 
zweiten sehr dünne Wände (zum Bei¬ 
spiel ein Labyrinth aus Spiegeln). 

Das Labyrinth in einer 
Matrix gespeichert 

Betrachtet man die grafische Darstel¬ 
lung von Labyrinthen auf dem Compu¬ 
ter näher, so ist die kleinste Struktur ein 
Pixel. Es kann aber auch eine größere 
Struktur aus mehreren Pixeln, wie das 
Leerzeichen im Textbildschirm zur 
Darstellung eines Feldes, gewählt wer¬ 
den. Spätestens bei der grafischen Dar¬ 
stellung des Suchvorgangs wird bedeut¬ 
sam, ob die Figur größer, kleiner oder 
gleich groß wie ein Feld ist. Dies ent¬ 
scheidet nämlich darüber, ob alle als 
zugänglich definierten Felder auch tat¬ 
sächlich der Figur zugänglich sind oder 
diese, wie ein Nilpferd in der Tür, 
steckenbleiben kann. 

Ein Labyrinth kann zw'ar auf beide Ar¬ 
ten dargestellt werden, für Transforma¬ 
tionen zwischen graphischer und logi¬ 
scher Struktur ist jedoch die erste einfa¬ 
cher handhabbar und sollte deshalb 
verwendet werden. Außerdem soll die 
Figur die Größe eines Feldes, also die 
des kleinsten graphischen Elements, 
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haben. Der Labyrinthaufbau erfolgt 
nun folgendermaßen: Ausgegangen 
wird von der Grundflächenstruktur, der 
Art der Wandelemente und der Dimen¬ 
sion der Figur. Die Wandelemente lie¬ 
gen allerdings noch auf “Stapel“. Das 
Problem besteht nun darin, die Wande¬ 
lemente anzuordnen. 

Häufig wird bei Programmen ein Laby¬ 
rinth quasi per Hand konstruiert, die 
Daten werden abgespeichert, und durch 
Einlesen in die verwendete Datenstruk¬ 
tur wird das Labyrinth auf dem Rech¬ 
ner erzeugt. 

Eine weitere Möglichkeit ist die Erzeu¬ 
gung per Zufallsgenerator, um damit 
bei jedem Programmlauf neue Laby¬ 
rinthe darzustellen. Das bedeutet, daß 


man einfach Wandelemente auf einen 
bestimmten Anteil der Fläche streut 
und so ein völlig unstrukturiertes Laby¬ 
rinth erhält. Durch das Experimentie¬ 
ren mit dem Anteilswert sieht man, daß 
ein zu geringer Anteil an Wandelemen¬ 
ten das Labyrinth zu leicht passierbar 
macht, ein zu hoher Anteil Teile des 
Labyrinths völlig mit Wandelementen 
belegt oder unzugänglich werden läßt. 

Der Computer erzeugt das 
Labyrinth 

Aufgrund dieser Beobachtungen lassen 
sich Idealeigenschaften formulieren, 
die ein Labyrinth erfüllen sollte. Er¬ 
stens wird die Passierbarkeit des Laby¬ 
rinths verlangt, was bedeutet, daß der 
Ausgang vom Eingang her erreichbar 
ist, es darf aber Einschlüsse geben. 
Zweitens soll der Weg überall nur so 
breit sein, daß er gerade passierbar ist. 
damit das Labyrinth nicht zu einfach 
wird. 

Ein solches Labyrinth wird erzeugt, 
wenn — solange dies möglich ist - auf 
einem zufällig ausgewählten Feld ein 
Wandelemenl nur aufgestellt wird, 
wenn es höchstens an einer Stelle eine 
bereits bestehende Wand berührt. An 
dieses Element wird nun in einer der 
vier zulässigen Richtungen zufällig ein 
Wandelemente angefügt und so weiter, 
bis die Wand an eine schon bestehende 
Wand anstößt. 

Wie ist nun das 1-kByte-Programm auf¬ 
gebaut? Eine feste Labyrinthstruktur ist 
nicht geeignet, weil die gesamten Daten 
gespeichert werden müßten, was zuviel 
Speicherplatz verbraucht. Unstruktu¬ 
rierte Generierung mit einem Zufalls¬ 
generator liefert nur unbefriedigende 
Ergebnisse, und der geschilderte ideale 
Algorithmus ist für die geforderte Ziel¬ 
setzung zu aufwendig. Welche Mög¬ 
lichkeit bleibt dann noch? 

Die verwendeten Zeichen müssen ge¬ 
nau aufeinander abgestimmt sein. Dies 
gelingt mit einer Kombinationen aus 
drei bestimmten Zeichen, wobei Ideal¬ 
eigenschaft zwei erfüllt und Eigen¬ 
schaft eins ausreichend erfüllt wird. 
Mit diesen drei Zeichen ist es nun mög¬ 
lich, eine riesige Menge verschieden¬ 
ster Labyrinthe zu erzeugen. 

Im Mode 1 ergibt sich eine gute Ausge¬ 
wogenheit zwischen Gesamtgröße des 


Labyrinths und der Breite von Mauern 
und Wegen. Das kleinste grafische Ele¬ 
ment (Feld) hat hier die Größe von 44 
= löPixeln. Da der Gesamtbildschirm 
aus 640400 = 256000 Pixeln besteht, 
hat das Labyrinth die Größe 160100 = 
16000 = 256000 / 16 Felder. Mil Hilfe 
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des Befehls TEST (x,y) ist es möglich, 
direkt auf die graphische Struktur zu¬ 
zugreifen und festzustellen, obein Feld 
belegt ist oder nicht. So kann mit Hilfe 
des Joysticks eine Figur von der Größe 
eines Feldes durch das Labyrinth ge¬ 
steuert werden. 

Nun mußte aber exakt festgelegt wer¬ 
den, wo Start und Ziel beim Labyrinth 
liegen sollten. Im Unterschied zum 
gänzlich konstruierten einerseits und 
dem algorithmisch generierten, idealen 
Labyrinth andererseits war die Eigen¬ 
schaft der Zugänglichkeit und damit 
Passierbarkeit hier nicht garantiert. Die 
äußere Umrandung war eine Ursache 
für unzugängliche Teile. Daher war es 
besser, an zwei gegenüberliegenden 
Seiten auf den Rand zu verzichten und 
statt der Zielsetzung, vom festgelegten 
Eingang zum festgelegten Ausgang zu 
gelangen, einfach das Labyrinth von ei¬ 
ner Seite zur anderen zu durchqueren. 

Vom Eingang zum Ausgang 

Nun also ist unser Problem eindeutig 
beschrieben und auf dem Rechner prä¬ 
sent. Auch die manuell gesteuerte Su¬ 
che nach einem Weg ist bereits mit dem 
Joystick möglich, und es wurde nicht 
mehr als ein Kilobyte BASIC-Text be¬ 
nötigt. Was noch fehlt, ist ein Lösungs¬ 
verführen, welches den CPC zu einem 
ernstzunehmenden Gegner werden 
läßt. Jedesmal, wenn ein Weg nicht 
weiterführt, müssen alle Schritte bis zu 
der letzten Verzweigung, an der alle an¬ 
deren möglichen Abzweigungen noch 
nicht versucht worden sind, rückgängig 
gemacht werden. Wie Theseus an 
Ariadnes Faden sucht sich das Pro¬ 
gramm den Weg zurück, wenn ein Ver¬ 
such fehlschlägt. 

Was ist einfacher, als den Weg durch 
das Paar der Positionswerte in zwei Ar- 
rays zu speichern, und wenn es nicht 
mehr weitergeht, den Faden entspre¬ 
chend zurückzugehen. Dabei wird der 


Faden genau wie bei Theseus soweit 
wie nötig wieder aufgewickelt und der 
falsche Weg markiert, um nicht unnöti¬ 
gerweise mehrmals einen falschen Weg 
zu probieren. Wie w ir von Hänsel und 
Gretel aus Grimms Märchen wissen, 
sind Steine oder Brotkrumen geeignete, 
wenn auch unzuverlässige Hilfsmittel, 
dies zu tun. 

Bei genauerer Überlegung haben Hän¬ 
sel und Gretel jedoch das gleiche Pro¬ 
blem wie Theseus. Sie wollen lediglich 
einen einmal gegangenen Weg zurück- 
gchen. Von der Zielsetzung her heißt 
das, den Eingang auch wieder als Aus¬ 
gang zu benutzen. Die gestreuten Stei¬ 
ne haben also die gleiche Funktion wie 
der Faden. Wir hingegen stehen vor 
dem komplizierteren Problem, einen 
unbekannten Ausgang finden zu müs¬ 
sen. Nur wenn cs nicht weitergeht, wol¬ 
len w'ir zurückgehen, sonst jedoch auf 
unbekannten Pfaden wandeln. Wir nut¬ 
zen die Steine daher zum entgegenge¬ 
setzten Zweck, nämlich die Wege zu 
kennzeichnen, die nicht wieder gegan¬ 
gen werden sollen. 

Es wäre nun möglich, den Computer 
Steine, symbolisiert durch Punkte, in 
das Labyrinth, das auf dem Bildschirm 
dargcstcllt ist, streuen zu lassen. Dies 
hätte jedoch den Nachteil, daß sich der 
Bildschirm in ein Schotterfeld verwan¬ 
deln würde und die Spielfigur, die wir 
steuern, dauernd über diese Steine stol¬ 
perte. Zudem ist da auch noch der Fa¬ 
den. den die Figur des Rechners hinter 
sich herschleppt und der eine Verwick- 
iungsgefähr in sich birgt. Wir fertigen 
deshalb eine Kopie des Labyrinths fin¬ 
den Rechner an. in der er nach Her¬ 
zenslust mit Fäden und Steinen um sich 
werfen kann. Nachdem das Labyrinth 
grafisch erzeugt worden ist, muß es 
deshalb in eine logische Struktur trans¬ 
formiert werden. Wie erläutert, wird 
dazu eine Matrix benutzt. Die Figur 
des Rechners sucht daher nicht, wie es 
scheint, in demselben Labyrinth w'ie 


wir, sondern in einer Kopie. Entgegen 
der möglichen Vermutung hat der 
Rechner auch nicht von vornherein 
Überblick über das Gesamtlabyrinth, 
sondern muß mühsam, wie eine Maus 
im Laborversuch, den Weg suchen, 
ohne über die Wände schauen zu 
können. 

Wie eine Maus im Labor 

Obwohl die Daten des Labyrinths (so¬ 
gar doppelt) vorhanden sind, bedeutet 
dies nicht, daß sie auch von Beginn an 
als Information verfügbar sind. Nur zu 
unserer Information wird die Figur des 
Rechners im Labyrinth permanent auf 
dem Bildschirm dargestellt. 

Aus diesem Grund kann auch nur unse¬ 
re Figur der Figur des Rechners begeg¬ 
nen und nicht umgekehrt. Während un¬ 
sere Figur nicht in der Lage ist. über 
die Figur des Rechners zu klettern, ist 
unsere Figur in der Kopie des Laby¬ 
rinths nicht existent und folglich auch 
kein Hindernis. Da die Figur des Rech¬ 
ners (solange das Ziel nicht erreicht ist) 
ohnehin ständig in Bewegung ist, ver¬ 
sperrt sie uns aber niemals wirklich den 
Weg. Wir haben somit außer dem Über¬ 
blick über das Gesamtlabyrinth den 
weiteren Vorteil, beobachten zu kön¬ 
nen, was die Figur des Rechners macht. 
Wir können Begegnungen sozusagen 
nutzen, um nach dem Weg zu fragen. 
Zum Beispiel, wenn wir der oft schnel¬ 
leren Figur des Rechners folgen und 
diese sich plötzlich auf dem Rückweg 
befindet, können wir oft erkennen, daß 
die weitere Suche zwecklos ist und 
ebenfalls umkehren. Die Figur verrät 
unbeabsichtigt, daß wir auf dem Holz¬ 
weg sind. 

Da das Pogramm mit Absicht so klein 
gehalten wurde, ist es natürlich stark 
erweiterungsfähig. Aber das überlassen 
wir nun Ihrer Phantasie. 

Ralf Grafe/jg 


10 '****************************** [1252] 

20 '* Listing ARIADNE.BAS * [2086] 

30 '* (c) by Ralf Grafe * [299] 

40 '* & * [253] 

50 '* CPC International * [1646] 

60 '****************************** [1252] 

70 SYMBOL 253,207,207,192,192,252,252,12,1 [13938] 
2: SYMBOL 254,255,255,192,192,204,204,12,12 
: SYMBOL 255,252,252,192,192,207,207,12,12: 

DEFINT i-y :DEF FNq(m, u ,v)= (n=m AND TEST(u, 
v)=0) :DIM L( 157, 97),X(2000),Y(2000) : PAPER 
3 : CLS :WINDOW# 0,2,39,2,24 

80 PAPER 0: CLS:PRINT : FOR i=l TO 798:PRINT [10381] 
CHR$( INT (RND(1)*3+253));:NEXT :FOR i=3 TO 1 
56 : FOR j=3 TO 96:L(i,j )=TEST(i *4,j *4) : NEXT 
: NEXT : i=80 : j=4 : x=320:y=16 :s=x: t=y : PRINT CH 
R$(7) 

90 n=JOY(0):IF n>0 THEN u=x:x=s :v=y:y=t :p= [4359] 


0:GOSUB 160 :x=u :y=v 

100 IF FNq(1,s,t+5) THEN t=t+4 ELSE IF FNq [6922] 
( 2,s,t-4) THEN t=t-4 ELSE IF FNq(4,s-4,t) 

THEN s=s-4 ELSE IF FNq (8,s+4,t) THEN s=s+4 

110 IF n>0 THEN u=x:x=s:v=y:y=t:p=5:GOSUB [5322] 

160:x=u:y=v 

120 IF y=380 THEN 90 ELSE IF L(i,j+1)=0 TH [9730] 
EN j=j+l:GOTO 140 ELSE IF L(i-l,j)=0 THEN 
i=i-l:GOTO 140 ELSE IF L(i+l,j)=0 THEN i=i 
+ 1JGOTO 140 ELSE IF L(i,]-1)=0 THEN j =j-1: 

GOTO 140 

130 L(i,j)=3:k=k-l:i=X(k):j=Y(k)IGOSUB 150 [3150] 
:GOTO 90 

140 GOSUB 150:k=k+l:X(k)~i:Y(k)=j:L(i,j)=2 [2024] 
:GOTO 90 

150 p=0 : GOSUB 160:x=i*4:y=j*4:p=3:GOSUB 16 [3508] 
0 : RETURN 

160 MOVE x,y+2:DRAW x+2,y+2,p*2 : DRAW X+2,y [2974] 
: PLOT x,y,p:RETURN 
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3D-MERSI 

Tetris für Fortgeschrittene 

Dreidimensional präsentiert sich dieses gelungene Spiel, das Sie sicherlich so 
manchen Nerv kosten wird. Versuchen Sie, unterschiedlich geformte Körper 
so platzsparend wie möglich in einem kastenförmigen Behälter zu stapeln. 


Bei 3D-MERSI handelt es sich um eine 
dreidimensionale Version des Spiels 
Tetris. Hier soll der Spieler versuchen, 
die Spielsteine, die in eine Schachtel 
hineinfallen, so platzsparend wie mög¬ 
lich zu stapeln. Hat er es nämlich ge¬ 
schafft, eine Ebene lückenlos zu füllen, 
verschwindet diese, und die darüberlie¬ 
genden Ebenen rutschen nach unten. 
So entsteht Platz für neue Steine. Sollte 
es jedoch aufgrund zu vieler Lücken 
passieren, daß ein Stein den oberen 
Rand der Schachtel berührt, ist das 
Spiel zu Ende, und je nach Ihrer Punkt¬ 
zahl können Sie sich in der Highscoreli- 
ste eintragen. 

Wie geht’s? 

Nachdem man im Titelbild oder in der 
Highscore-Listc eine beliebige Taste 
gedrückt hat, darf man zunächst den 
Schwierigkeitsgrad einstellen. Gewählt 
wird der Level mit den Zifferntasten 
(von eins bis fünf nimmt der Schwierig¬ 


keitsgrad zu), gestartet wird das Spiel 
anschließend durch einen Druck auf die 
ENTER-Taste. 

Nun erscheint in den linken zwei Drit¬ 
teln des Monitors das Spielfeld, das 
eine überdimensionale Schachtel dar¬ 
stellen soll, in die man von oben hinein¬ 
blickt. In diese Schachtel lallen dann 
verschieden geformte Steine, die der 
Computer jeweils aussucht. Während 
des Fallen* sollte man die Steine so pla¬ 
zieren. daß sie möglichst lückenlos ge¬ 
stapelt werden können. Zu diesem 
Zweck kann man die Steine mit den 
Cursortasten nach oben, unten, links 
und rechts verschieben. Außerdem 
dreht ein Druck auf die Tasten <F7>, 
<F8> oder <F9> den Stein um die 
x-, y- oder z-Achse. Ein Druck aut 
< F4 >, < F5 > beziehungsweise 

<F6> dreht ebenfalls um die x-, y- 
oder z-Achse, allerdings in entgegenge¬ 
setzter Richtung. Die x-Achse verläuft 
übrigens von links nach rechts, die y- 
Achse von unten nach oben, und die z- 


Achse zeigt in den Monitor hinein. Ob¬ 
wohl sich das Drehen hier kompliziert 
anhört, werden Sie nach einigen Spie¬ 
len feststellen, daß alles halb so wild 
ist. 

Wenn man den Stein schließlich richtig 
plaziert hat, braucht man nur die 
SPACE-Taste zu drücken, und der Stein 
fällt sofort nach unten, was den Spiel¬ 
ablauf in den niedrigeren Levels erheb¬ 
lich beschleunigt. 

Trotzdem sollte diese Funktion bei den 
ersten Spielen erst einmal nicht benutzt 
werden. Viel mehr sollten Sie sich zu¬ 
erst mit den verschiedenen Möglichkei¬ 
ten beschäftigen, den gerade herabfal¬ 
lenden Stein in die x-, y- oder z-Rich- 
tung zu drehen. Erst später, wenn Sie 
sich damit etwas angefreundet haben, 
ist der Einsatz der SPACE-Taste sinn¬ 
voll. 

Spieler in Nöten 

Als kleine Hille - um festzustellen, 
wie hoch man schon gestapelt hat, und 
um die Muster besser zuordnen zu kön¬ 
nen — ist rechts neben dem Spielfeld 
eine Skala angebracht, die die Stapel¬ 
höhe und die entsprechenden Muster 
anzeigt. 

Sollte man während des Spiels Lust auf 
eine Tasse Kaffee bekommen, stellt dies 
auch kein Problem dar. Das Programm 
beherrscht zwar nicht das Kaffeeko- 
chen, verfügt aber übereine Pausefunk¬ 
tion zum Unterbrechen des Spiels. Die¬ 
se wird durch die P-Taste aktiviert. Ist 
die Kaffeepause beendet, kann das 
Spiel durch einen zweiten Druck auf P 
wieder gestartet werden. 


Tastenbelegung für 3D-Mersi 


Cursor hoch 
Cursor runter 
Cursor links 
Cursor rechts 
F7/F4 

F8/F5 

F9/F6 

SPACE 

P 


— Stein nach oben 

— Stein nach unten 

— Stein nach links 

— Stein nach rechts 

— Stein um x-Achse 
drehen 

— Stein um y-Achse 
drehen 

— Stein um z-Achse 
drehen 

— Stein fallen lassen 

— Pause ein-/aus- 
stellen 
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Die Listings 

3D-Mersi besteht aus zwei BASIC-Pro- 
grammen (3d-mersi.bas und 3d-hi.lad) 
und vier Dataladern. Nach dem Abtip¬ 
pen speichern Sie die sechs Programm¬ 


teile am besten zunächst einmal ab. An¬ 
schließend werden die vier Datalader 
und “3d-hi.lad w gestartet. 

Speichern Sie dann die Dateien ab. die 
vom Hauptprogramm nachgeladen 
werden. 


Das Spiel selbst starten Sie nach geta¬ 
ner Arbeit schließlich mit 

RUN U 3D-MERSI.BAS". 

Wer einen CPC 464 besitzt, muß zuvor 
allerdings den Emulator starten! 

Martin Schmid/rs 


10 '*************************** 


20 '* 3D-MERSI * 
30 '** (3D-MERSI.BAS) ** 
40 '* 3/1991 by * 
50 '* Martin Schmid * 


60 '*************************** 

70 ' 

80 '*** Initialisierung 
90 ' 

100 SYMBOL AFTER 256:MEMORY 13232 

110 LOAD" 3d-mersi .pic", 13233 

120 LOAD"3d-mersi.spr", 33000 

130 LOAD"3d-mersi.mc",35950 

140 LOAD"3d-mersi.ehr", 39168 

150 IF PEEK(&BD71 ) <>232 THEN 200 

160 POKE & 8 CCD,& 87 : POKE &8CCE, SB1 : POKE &8C 

CA,&88 

170 POKE &8CCB, &B1 : POKE &8D3E,S88 : POKE &8D 
3F , &B1 

180 POKE &8D41 , &87 : POKE &8D42, &B1 : POKE S97 
CE ,& 38 

190 POKE &97CF,&B3 

200 DIM n$(15),pte(15) :OPENIN" 3d-mersi .hi" 
: FOR i=l TO 15:LINE INPUT#9,n$(i) : INPUT#9, 
pte(i):NEXT 

210 rekord=pte(1):KEY DEF 27,1,80,80 
220 MODE 1 : INK 0,0 :INK 1,2:INK 2,18: INK 3, 
6 : BORDER 0 
230 RANDOMIZE TIME 

240 DIM Z (12 ) : FOR .1=0 TO 12 : READ z(i):NEXT 
250 DATA 72,63,55,48,42,37,32,28,25,22,19, 
16,14 

260 DIM adr( 22 ) : FOR i=0 TO 21:READ adr(i): 
NEXT 

270 DATA 33000,33056,33115,33177,33263,333 
52,33417,33530,33646,33759,33851,33967,340 
89,34199,34312,34431,34547,34687,34857,350 
24,35167,35307 
280 ' 

290 '*** Vorspann 
300 ' 

310 CLS : CALL &8C7D 

320 CALL &8C77,2,1,172,90,"1991 BY MARTIN 
SCHMID" 

330 CALL &8C77,1,0,288, 40, ">TÄSTE<" 

340 FOR i=l TO 2000 :IF INKEY$<>""THEN 410 

ELSE NEXT 

350 GOSUB 1260 

360 FOR i=l TO 2000 :IF INKEY$<> " "THEN 410 
ELSE NEXT 
370 GOTO 310 
380 ' 

390 '*** Level waehlen 
400 ' 

410 level=l :CLS: CALL &8C7D 

420 CALL &8C77, 3,0,208,60, "LEVEL: " 

430 CALL &8C77 , 2, 0,320,60,"1 2345" 

440 CALL &8C77 ,3,0, 272+level*32,60,STR$(le 
vel) 

450 a$=INKEY$:IF a$=CHR$(13)THEN 480 

460 IF a$> "0 "AND a$<"6"THEN 1evel=VAL{a $ )E 

LSE 450 

470 GOTO 430 

480 POKE &8CE9 , PEEK( &8CCA):ON level GOSUB 

490,500,510,520,530:GOTO 570 

490 POKE &8CEC,7:steine=9: RETURN 

500 POKE &8CEC, 3:steine=14:RETURN 

510 POKE &8CEC,2 : steine=18:RETURN 

520 POKE &8CEC,1 : steine=22 : RETURN 

530 POKE S8CEC,90 : POKE &8CE9 , PEEK(&8CCD) :s 

teine=17:RETURN 

540 ' 

550 '*** Spielbildschirm aufbauen 
560 ' 

570 MODE 1: FOR i=0 TO 13 STEP 2 
580 PLOT i,i+4,i MOD 3+l:DRAW 389-i,i+4:DR 
AW 389-i,393-i: DRAW i,393-.i:DRAW i,i+4 
590 NEXT : PLOT 408,0, 2:DRAWR 0,192: PLOT 390 
,0,2: DRAWR 0,192 

600 FOR i=0 TO 192 STEP 16: PLOT 408, i: DRAW 
R-16,0 :NEXT 


[1051] 

[109] 

[955] 

[528] 

[217] 

[1051] 

[117] 

[1250] 

[117] 

[1859] 

[1910] 

[1882] 

[1729] 

[1945] 

[1869] 

[2256] 

[ 2202 ] 

[2703] 

[778] 

[6335] 


[1596] 

[2922] 

[1777] 

[2213] 

[2146] 

[2166] 

[6985] 


[117] 

[1179] 

[117] 

[520] 

[2293] 

[2187] 

[2177] 

[863] 

[2177] 

[510] 

[117] 

[1495] 

[117] 

[983] 

[2382] 

[1815] 

[2007] 

[1560] 

[1850] 

[462] 
[5281] 


[2352] 

[1204] 

[1204] 

[3014] 

[3258] 

[117] 

[1788] 

[117] 

[835] 

[4909] 

[2031 ] 

[2493] 


610 ORIGIN 195,199:CALL &8C7A 

620 FOR x=-3 TO 2: PLOT x*72+36,-3*72+36,1 : 

DRAW x*z(12)+7,-3*Z(12)+7:PLOT x*72+36,2*7 

2+36:DRAW x*Z (12)+7,2*z(12) + 7 : NEXT 

630 FOR y=-3 TO 2 : PLOT- 3 *72 + 36, y*72 + 36,1 :D 

RAW-3*Z(1 2)+7 ,y*z (12)+7 : PLOT 2*72+36,y*72+ 

36: DRAW 2*Z (12)+7,y*Z( 12) +7 :NEXT 

640 FOR Z=0 TO 1 2: PLOT-3*z( 2)+z( z)/2 , -3*Z( 

z ) +Z( z )/2 : DRAW 2*z(z)+z(z)/2,-3*z(z)+z(z)/ 

2: DRAW 2*z (z)+z(z)/2,2*z(z)+z(z)/2 :DRAW-3* 

Z(z)+Z(z)/2,2*Z(z)+z(z)/2:DRAW-3+Z( z)+z ( Z) 

/2,-3*z(z)+z(z)/2:NEXT 

650 DATA 255,255,255,255,255,255,255 

660 DATA 255,000,000,000,000,000,255 

670 DATA 255,000,000,000,000,000,255 

680 DATA 255,000,000,000,000,000,255 

690 DATA 255,000,000,000,000,000,255 

700 DATA 255,000,000,000,000,000,255 

710 DATA 255,255,255,255,255,255,255 

720 adr=32300 : FOR i=l TO 13:RESTORE 650 

730 FOR j.=® TO 49: READ b:POKE adr,b:adr=ad 

r+1 

740 NEXT:NEXT 

750 FOR i=l TO 49: POKE adr,255:adr=adr+l :N 

EXT : CALL &8C74:POKE &952D,12 

760 punkte=0:ebenen=0 

770 CALL &8C77,3,4,496,250, "PUNKTE:" 

780 CALL &8C77,2,5,496,230,"000000" 

790 CALL &8C77 ,3,4,448,170, "EBENEN:" 

800 CALL &8C77,2,4, 576,170, “0000" 

810 CALL &8C77 ,3,4, 496,50,"REKORD:" 

820 CALL &8C77,2, 5,496,30,RIGHTS ("000000"+ 
RIGHTS(STR$(rekord) , LEN(STR$( rekord))-1 ) ,6 

830 CALL &8C77,3,4, 480,120, "LEVEL:" 

840 CALL &8C77,2,4,576,120, STRS (level) 

850 ' 

860 '*** eigentliches Spiel 
870 ' 

880 GRAPHICS PEN 2: sprite=INT(RND*steine) : 
CLEAR INPUT:CALL &8C6E,adr(sprite) 

890 punkte=punkte+1evel*5*PEEK( &942 3 ) 

900 CALL &8C77,2,5,496,230 , RIGHTS( "000000" 
+RIGHTS(STRS(punkte),LEN(STR$(punkte) )-1 ) , 
6 ) 

910 IF PEEK( &952D)=0 THEN CALL &8C77,2,1,4 
6,300,"DAS WAR ' S DANN WOHL !": FOR t=600 TO 
1200:SOUND l,t, 1,15:NEXT:FOR Q=1 TO 2000: 
NEXT: GOTO 1070 

920 GRAPHICS PEN 2: CALL &8C71 
930 IF PEEK( &952E ) =0 THEN 880 
940 ebenen=ebenen+l:punkte=punkte+250*leve 

950 ton=280 : FOR i=0 TO 3 
960 SOUND 1,ton,10+(16 AND i=3),10 
970 SOUND 2,.ton-2,10+(16 AND i = 3),10 
980 SOUND 4 , ton-4 ,1 0+(16 AND 1=3), 10 
990 ton=ton-30-i*io 
1000 NEXT 

1010 CALL &8C7 7,2,5, 496,230 ,RIGHTS( "000000 
"+RIGHT$(STRS(punkte), LEN( STRS(punkte))-1 ) 

/ 6 ) 

1020 CALL &8C77,2, 4 ,576, 170,RIGHTS ("0000"+ 
RIGHTS(STRS(ebenen), LEN( STRS(ebenen))-1), 4 

1030 GOTO 920 
1040 ' 

1050 ' *** evtl. Namen fuer Highscore-Liste 
abfragen 
1060 ' 

1070 IF punkte>pte(15)THEN 1080 ELSE CLEAR 
INPUT:GOTO 350 

1080 pte(15)=punkte:n$(15)=CHR$( 255) 

1090 FOR i=l TO 14 :h=i: FOR j=l+i TO 15:IF 
pte(h) <pte(j )THEN h=j 

1100 NEXT:pte=pte(i):pte(i)=pte(h):pte(h)= 
pte: n$=n$ (i.) : n$ ( i ) =n$ (h ): n$ (h ) =n$ : NEXT 
1110 FOR i=l TO 15:IF nS(i)=CHR$(255) THEN 
h=i:n$(i)="" 

1120 NEXT 

1130 hl = -l .'GOSUB 1260 :hl = 0 


[ 887 ] 
[8244] 


[7167] 

[10676] 


[ 1212 ] 
[ 1167 ] 
[1167] 
[1167] 
[1167] 
[1167] 
[ 1212 ] 
[2652] 
[1231] 

[ 1022 ] 

[4494] 

[1536] 

[2174] 

[1451] 

[1508] 

[1712] 

[1455] 

[4678] 


[1276] 

[2456] 

[117] 

[1942] 

[117] 

[3994] 

[ 2112 ] 

[5611] 


[9011] 


[1228] 

[1097] 

[2848] 

[2127] 
[2099 ] 
[3182] 
(1586] 
[898] 

[ 350] 
[5611] 


[3528] 

[332 ] 
[117] 
[2504] 

[117] 

[2116] 

[2216] 

[2128] 

[3582] 

[2876] 

[350] 

[796] 
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[1535] 

[5112] 


6205 


1140 CALL &8C77,3,0,176, 40,"GIB DEINEN NAM [3716] 
EN EIN !" 

1150 X=112:Y=345-H*18:p=l 

1160 i$=UPPER$(INKEYS) : IF i$=CHR$(127 ) THEN 
IE x>112 THEN X=X-16 : n$(h)=LEFT$(n$(h),LE 
N(n$(h))-1):CALL &8C77 ,0, 0,X+32 ,y," " 

1170 IF(i$>-"0"AND i$<" :" )OR(i$>="A"AND 1$ . 

<"[")OR i$=" "THEN IF x<448 THEN x=X+16:n$ 

(h)=n$(h)+i$:CALL &8C77,(h MOD 3)+l,o,x,y, 
iS 

1180 IF i$=CHR$( 13 )THEN 1190 ELSE CALL &8C [4415] 
7 7, p, 0, X+ 1 6, y,CHR$ (232): GOTO 1160 
1190 CALL &8C77,0,0,x+16,y ,CHR$(232):OPENO [7851] 
UT"3d-raersi.hi":FOR i = l TO 15 : PRINT#9,n$(l 
):PRINT#9,pte(i):NEXT:CLOSEOUT:rekord=pte( 

1200 CALL &8C77,2,0,176,40, SPACE$ ( 22 ) [ 1450] 

1210 CALL &8C77 ,1,0, 288,40 , ">TÄSTE<":FOR 1 [5528] 
=1 TO 2000 :IF INKEY$=" "THEN NEXT ELSE 410 
1220 GOTO 310 [510] 

12 30 ' t 17 ] 

1240 '*** Highscore-Liste ausgeben [1828] 

1250 ' [ 117 1 

1260 MODE 1:CLS :p=l : FOR i-2 TO 16 STEP 2 :P [9135] 
LOT 16 -i, 1 6 -i ,p:DRAW 622+i,16-i :DRAW 622+1 
, 400-i : DRAW 16-i , 400-i : DRAW 16-i,16-i : p= (p 
+1 )MOD 3+lsNEXT 

1270 CALL &8C77,3,1,256, 374, "HIGHS" 1808 

1280 CALL &8C77 ,3,3,332,374,"CORES" [1762] 

1290 FOR i=l TO 15 HlVi , 

1300 CALL &8C7 7 , (i MOD 3 ) + 1, 0,78,345-1*18 , [3304 ] 
RIGHTS( " " +STR$(i) , 2 )+CHRS (46) . 

1310 CALL &8C77 ,( i MOD 3 )+l , 0,128,345-1*18 [2096] 
,n$(i)+" " 

1320 CALL &8C77,(i MOD 3)+l,0 ,496, 345-i*18 [3966] 
, RIGHT$( " "+STR$(pte(i)) , 6 ) 

1330 NEXT „ \mh 

1340 IF hl>-l THEN CALL &8C77 , 1,0, 288 ,40, " [2284] 
>TASTE<" rce:c , 

1350 RETURN [ 555 l 


I ' "3D-PIC.LAD" => "3D-MERSI.PIC" [2253] 

10 MODE 1:FOR x=0 TO 30:y=0 [H75] 

II WHILE y<69:READ b$:b=VAL("&"+b$): i=l [2576] 

12 IF b=2 THEN READ anz$,b$:anz=VAL( "&"+an [5526] 
z$) :b=VAL("&"+b$):FOR i=l TO anz:GOSUB 22: 

NEXT ELSE GOSUB 22 

13 WEND:NEXT [704] 

14 adrl=30900:FOR y=0 TO 68 [1864] 

15 FOR X=0 TO 30:adr=&C000+X+(y MOD 8)*204 [2649] 

8+80*(y\8) 

16 b=PEEK(adr):POKE adrl,b:POKE adr,255 [4467] 

17 adrl=adrl+l [210] 

18 NEXT [ 35 °] 

19 NEXT [350] 

20 SAVE"3d-mersi.pic",b / 30900,2139 [2561] 

21 END [HO] 

22 adr=&C000+x+ (y MOD 8)*2048+80* (y\8) [2259] 

23 POKE adr,b:y=y+l : RETURN [791] 

24 DATA 02,04,00, 01,-03, 07,02,3E,0F, 01,03,0 [3287] 

7,02,0A,0F,87,87,C3,C3,A5,A5,96,96,A7 

25 DATA A7,02,21 ,B7 ,87 ,F0, OF,FO,87,B7 ,B7,8 [2635] 
7 , F0, 02, 04 , 0F,02,04,0F,78,4B, 5B, 4B, 78 

26 DATA 0F,0F,1E,0F,0F,2D,5A,A7,5B,2D,1E,0 [5319] 
F,87,87,4B,4B, AD, AD, DE, DE,6F,6F,3F,3F 

27 DATA 5B,5B,69,69,5A,5A,02,12,4B,C3,0F,F [4034] 
0,OF,FF , FF,OF,FO,02,04,ÖF,02 , 04,OF,FO 

28 DATA OF ,FF, OF,El , 5B , A7,7F,87,78,0F, OF , F [3628] 
0,OF,FF,OF,FO,Ö2,08,OF,87,87,4B,4B,AD 

29 DATA AD, DE, DE ,6F,6F,B7 ,B7,5B, 5B, 2D , 2D,1 [4160] 
E. iE, 02 ,OC,OF, FO , OF, FF ,FF,OF, Fö, 02 ,04 

30 DATA OF,02,04,OF,FO,OF,EF,5E,AD,4B,4B,A [4374] 

D, 5E,02,04,A7, 5E, AD,4B,87 ,02,10 , OF ,87 

31 DATA 87, 4B,4B,AD, AD, DE,DE,6F,6F,B7,B7 , 5 [2183] 

B, 5B,2D,2D, IE ,IE, 02 , 04,OF, FO , OF , FF, FF 

32 DATA 0F,F0,02 ,04, OF,02,04,OF,B4,A5, A5 , 0 [3582] 
2, 06,2D, 02, 04, A5,2D,2D,2D,3C,02, 12, OF 

33 DATA IE,IE, 2D,2D,5B,5B,B7,B7 , 6F , 6F,DE,D [4800] 

E, AD , AD,4B,4B,87, 87, OF, OF , FO, OF,FF,FF 

34 DATA OF, FO,02, 04,OF,02, 04 ,0F,F0,OF , FF, 8 [3551] 

F, BC,0 2,07,AD,BC,8F,FF,OF,FO,02,OA,OF 

35 DATA 1E,1E,2D,2D,5B,5B,B7,B7,6F ,6F,DE,D [5247] 
E,AD,AD,4B,4B,87,87,02,0A,0F,FQ,0F,FF 

36 DATA FF,0F,F0,02,04,0F,0E,0F,0F,0F,C3,2 [3848] 

D, DE,2F,D3,02,07,5B,D3,2F,DE , 2D,C3,OF 

37 DATA OF,1E,1E,2D,2D,5B,5B,B7,B7,6F,6F,D [5398] 

E, DE, BC,BC, 5A, 5A, 96,96,02,11,1E,0F,F0 

38 DATA 0F,FF,FF,0F,F0,02,O4,0F,O0,00,08,0 [2172] 

C, 0E,0F,0F,87,02,07,4B,5A,5A,A5,2D,4B 

39 DATA 4B,A7,A7,6F,6F,02,04,EF,02,1B,6F,0 [3779] 


F, FO , OF, FO, OF, FF,;FF, OF, FO , 02,04 , OF, 02 

40 DATA 06 , 00,08,OC, OC, 02, 04, OF,FO,C3,02,2 
9,D3,C3,FO,OF,FO,OF,FF,FF,OF,FO,02,04 

41 DATA OF , 02,09,00 ,02,04, OF, FO,OF , FF,FF, 8 
F, BC ,02,OE , AD,BC,8F,FF,FF,8F,BC,02,0D 

42 DATA AD,BC, 8F,FF, FF , 0F,F0,0F,F0,OF,FF,F 
F,0F,F0,02,04,OF,02,09,00,02,04, OF,FO 

43 DATA OF , FF, FF,0F,F0, 02,OE,OF,FO , OF,FF,F 
F , OF , FO,02,OD,OF,FO,0F, FF, FF,OF, FO, OF 

44 DATA FO,OF, FF, FF,OF,FO , 02 , 04,0F,02, 09, 0 
0,02 ,04 , 0F,F0,0F,FF,FF, OF ,F0 , 02, OE, OF 

45 DATA F0,0F,FF,FF,0F,F0,02,0D,0F,F0,0F,F 
F,FF , OF ,FO, OF , FO, OF,FF, FF, OF , FO, 02, 04 

46 DATA OF , 02 , 09,00 , 02 ,04, OF,FO,OF, FF ,FF ,0 
F,F0,02,0E,0F,F0,0F,FF,FF,0F,F0,02,0D 

47 DATA OF,FO , OF,FF,FF , OF,F0,OF ,F0,OF,FF,F 
F,OF,FO,02, 04 , OF, 02,09 ,00,02,04, OF,Ei 

48 DATA 2D, AD,AD, 2D, El,02, OE,0F,C3 ,02,04 , 4 
B , C3 , 0 2,OD , OF,FO,1E , DE , DE , 1E,FO,0 F, FO 

49 DATA OF,FF,FF,0F,F0,02,04,0F,02,09,00,0 
2,04, OF, 3C, 02,2B, 2D, 3C,OF , FO,OF, FF,FF 

50 DATA OF,FO,02,04,OF,02,09,00,02,04,OF,F 
0,OF,FF,FF,CF,02,10,DE,CF,FF,FF,EF , FF 

51 DATA DF , CF,02 , OF, DE,1E,F0,0F,F0,0F,FF,F 
F,0F,F0,02,04,0F,02,09,00,02,04,0F,F0 

52 DATA 0F,FF,FF,0F,F0,02,0E,0F,F0,0F,FF,F 
F, OF, 78,AD,DE,6F,B7,5B,2D,1E,02,0D,0F 

53 DATA F0,OF,FF,FF,0F,FO,O2,O4,0F,02,O9,0 
0,02 , 04,OF,FO ,0F , FF,FF,OF,FO , 02,OE, OF 

54 DATA F0,0F,FF,FF,0F,F0,0F,0F,87 , 4B, AD, D 

E, 6F,B7,5B,2D,1E,02,09,0F,F0,0F,FF,FF 

55 DATA OF,FO,02,04,OF,02,09,00,02,04,OF,E 
1,1E,EF,FF,1F,E1,1L,02,0C,0F,1E,E1,1F 

56 DATA FF , EF, IE,El ,02 ,06,OF,87,4B, AD , DE ,6 

F, B7,5B,2D,IE,02,05,OF,FO,OF,FF,FF,OF 

57 DATA FO,02,04,OF,02,09,00,02,05,OF,87,6 
9,9E,EF,7F,B7,5B,2D,2D,02,06,1E,2D,2D 

58 DATA 5B,B7 ,7F,EF,9E,69 ,87,02,0B,0F,87,4 
B,AD,DE,6F,B7,5B,2D,1E,0F,F0,0F,FF,FF 

59 DATA OF,FO,02,04,OF,02,09,00,02,08,OF,8 
7, 4B, AD,AD, DE, DE,02,06, 6F, DE, DE,AD,AD 

60 DATA 4B,87, 02,12,0F ,87 ,4B, AD, IE , FO , OF,F 
0,OF,FF,FF,OF,FO,Q2 ,04, OF,02,09,00 ,02 

61 DATA 0E,0F,02,05,96,87,02,1C,0F,87,0F,F 
0 , OF,FF ,FF,OF,Fö,02,04,OF,02,09,00,02 

62 DATA 08,0F,1E,2D,5B,5B,B7,B7,02,05,6F,B 
7,B7,5B,5B,2D,1E,02,19,0F,F0,0F,FF,FF 

63 DATA OF, FO,02,04 , OF , 02 ,09,00,02, 05 , OF,1 
E,69,97,7F,EF, DE, AD,4B,4B> 02 , 05,87,4B 

64 DATA 4B , AD,DE,EF,7F,97,69,1E,02,15,0F,1 

E, El,1F,FF,EF,IE,El,02,04,OF,02,09,00 

65 DATA 02, 04,OF,78, 87, 7F, FF, 8F,78,87, 02,0 
B, OF,87,69,9E,EF, 7F, 97,$9, IE, 02 , 11, OF 

66 DATA IE, 69, 97,7F, EF, 9E, 69>87 , 02,05 , OF , 0 

2,09,00,02,04,OF,FO,OF,FF,FF,OF,FO,02 

67 DATA 0E,0F,87 ,4B,AD , DE , EF ,6F,B7 ,B7,5B,5 
B,02 , 09,2D , 5B,5B , B7, B7, 6F , EF , DE, AD, 4B 

68 DATA 87,02,07 ,0F,02,09,00,02,04,0F,F0,0 

F, FF,FF,OF,FO,02,12,OF,87,87,4B,4B,AD 

69 DATA AD,02, 09, DE,AD, AD, 4B,4B, 87, 87,02,0 
B,OF,O2,O9,00,O2,O4,OF,FO,OF,FF,FF,OF 

70 DATA FO , OF,3C, 02, 04,2D, 3C,OF,3C,02,24 ,2 
D,3C,02,04,OF,02,09,00,02,04,OF,FO,1E 

71 DATA DE, DE, IE, FO, OF , FO ,IE ,DE,DE , IE , FO , 0 
F,F0,1E,02,22 ,DE ,1E,FO,02,04,OF,02,09 

72 DATA 00 ,02, 3C,OF 


[3504] 

[4965] 

[3837] 

[3695] 

[4514] 

[4633] 

[3664] 

[4354] 

[3991] 

[4390] 

[3670] 

[2553] 

[3719] 

[4514] 

[4625] 

[4125] 

[3337] 

[4005] 

[3425] 

[3220] 

[5679] 

[3122] 

[3700] 
[3042] 
[4254] 
[4074] 
[5148] 
[4606] 
[3474] 
[3763] 
[2907] 
[3900] 
[414] 


I '"3d-spr.lad" => "3d-mersi.spr" 

10 MEMORY 29999:adr=30000 

II FOR i=l TO 853: READ byte$:byte=VAL("&"+ 
byte$) 

12 IF byte>128 THEN POKE adr , by te-128:adr= 
adr+1:GOTO 17 

13 x=(byte AND 240)/16 

14 y=(byte AND 12)/4 

15 z=(byte AND 3) 

16 POKE adr,x :POKE adr+1,y:POKE adr+2,z:ad 
r-adr+3 

17 NEXT 

18 SAVE"3d-mersi .spr" ,b, 30000 ,adr-30000 

19 DATA 81,00,15,90,40,10,11,01,00,04,05,0 
1,44,14,15,05,55,11,54,10,82,00,10,25 

20 DATA 90,40,20,21,01,00,04,05,01,44,24,2 
5,05,65,21,64,20,83,00,10,20,35,90,40 

21 DATA 30,31,01,00,04,05,01,44,34,35,05,7 
5,31,74,30,83,00,04,10,29,98,40,08,18 

22 DATA 14,24,20,00,01,09,19,15,25,21,20,6 
1,01,48,09,58,19,54,15,64,25,84,00,04 

23 DATA 10,20,39,98,40,08,18,14,34,30,00,0 
1,09, 19, 15,35, 31, Ql ,48,09,58,19,54, 15 

24 DATA 74,35,70,31,84,00,10,04,14,29,90,4 


[1584] 

[1448] 

[1900] 

[2798] 

[ 1001 ] 
[1412] 
[1430] 
[2940] 

[350] 

[2962] 

[2701] 

[3289] 

[2910] 

[4105] 

[3544] 

[3314] 
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Programm 


0,08,28,20,00,01,09,29,21,01,48,09,68 

25 DATA 29,60,21,84,10, 04,14,24,39, A0 , 44,0 [3783] 
8,38,34,24,20,10,14,04,05,09,39,35,25 

26 DATA 21,11,15,05,48,09,54,15,50,11,60,2 [4246] 
1,64,25,74,35,78,39,85,00,10,20,04,24 

27 DATA 39, AO, 40, 08,18, 14, 24,28,38,30,00,0 [3734] 
1,09,19,15,25,29,39,31,01,48,09,58,19 

28 DATA 54,15,64,25,68,29,78,39,70,31,84,0 [3293] 
4,10,1 4, 20,39, AO, 44,08, 28, 2 4, 34,30,10 

29 DATA 14,04,05,09,29,25,35,31,11,15,05,4 [3061] 
8,09,68,29,64,25,74,35,70,31,50,11,54 

30 DATA 15, 85, 00,10, 20,04,08,3D,98,40,0C,1 [4073] 
C,14,34,30,00,01,OD,1D,15,35,31,01,4C 

32 DATA 0D,5C,1D,S4,15,74,35,70,31,85,04,1 [3551] 
4,20,24,28,3D,AO,44,08,28,2C,3C,30,20 

32 DATA 24, 04,05,09, 29,2D,3D,31,21,25,05,4 [3429] 
8,09,68,29,6C,2D,64,25,60,21,70,31,7C 

33 DATA 3D,87, 00, 04, 08, 18,28, 24, 20,3D,AO, 4 [2551] 
0,0C,3C,30,20,28,18,10,00,01,0D,3D,31 

34 DATA 21,29,19,11,01, 4C, 00,50,11,58,19,6 [3804] 
8,29,60, 2 1,70,31,7C,3D,84,00,04,05,10 

35 DATA 2A,9F,40,08,18,14,24,20,00,01,05,0 [3231] 
6, 0A,1A,16, 15, 25,21,01, 45, 15,46, 16, 54 

36 DATA 15, 60, 21,64,25, 48, OA,58,1A,84,00,0 [3246] 
4,01,10,2A,A0,40,08,18,14, 24, 20,00,02 

37 DATA 06,05,09,19,11,21,25,05,48,09,54,1 [3593] 
6,06,51,12,02,52,16,60,21,64,25,58,19 

38 DATA 86,04,08,18,28,24,20,3D,A0,44,0C,3 [2300] 

C, 30,20,28,18,14,04,05,0D,3D,31,21,29 

39 DATA 19, 15, 05, 4C,0D,54, 15, 58,19, 68,29, 6 [2434] 
0, 21, 70,31,7C,3D, 85, 04, 08, 14,24, 20, 3D 

40 DATA AO,44,OC,IC,18,38, 30, 20,24,04,05,0 [3431] 

D, 1D,19,39,31,21,25,05,4C,0D,5C,1D,58 

41 DATA 19,60,21,64,25,70,31,78,39,85,08,1 [2315] 
4,18, 20, 24,3D,A8,48,OC,20,28,38,30,20 

42 DATA 24,14, 18,08,09, 0D,2D,29,39,31,21, 2 [4360] 
5,15,19,09, 4C,00,54,15, 58,19, 60, 21,64 

43 DATA 25,68,29, 6C,2D, 70, 31, 78, 39, 87,00,0 [1964] 
4,08,14, 20, 24,28,3D,BO, 40,OC, IC,18,28 

44 DATA 2C,3C,30,20,24,14,10,00,01,0D,1D,1 [4643] 
9,29,2D,3D,31,21,25,15,11,01,4C,0D,5C 

45 DATA ID,58,19,54,15,50,11,60,21,64,25, 6 [2308] 
8,29,6C,2D,70,31,7C,3D,86,04,10,14,18 

46 DATA 20,28,3D,BO, 44, 08,18,IC,3C,38,28,2 [2717] 
4,34,30,10, 14, 04,05, 09, 19, 1D,3D, 39,29 

47 DATA 25,35,31,11,15,05,48,09,50,11,54,1 [3488] 
5,58, 19, 5C,1D, 64, 25, 68, 29, 70, 31, 74, 35 

48 DATA 78,39,7C,3D,86,00, 04, 08, 14,20, 24,3 [3509] 
D,A8, 40, OC,IC,18, 38, 30,20,24, 14,10,00 

49 DATA 01,0D,1D,19,39,31,21,25,15,11,01,5 [2857] 
0,11,4C,0D,5C,1D,58,19,54,15,64,25,60 

50 DATA 21,70,31,78,39,85,04,08,10,14,24,3 [3698] 
D,A8,44, OC, IC,18,38,34,24,20,10,14,04 

51 DATA 05, 0D,1D, 19, 39, 35,25,21,11,15,05,4 [3134] 

C, 0D,5C,10,58,19, 54, 15,50,11,60,21 ,64 

52 DATA 25,74,35,78,39,85,04,10,14,18,24,3 [3698] 

D, BO, 44, 08,18, IC, 2C,28,38,34,24,20,10 

53 DATA 14, 04, 05,09,19, 1D,2D, 29, 39, 35,25,2 [3845] 
1,11,15,05, 48,09, 50,11, 54, 15,58, 19, 5C 

54 DATA 1D,60,21,64,25,68,29,6C,2D,74,35,7 [2476] 


I ' "3D-MC.LAD" => "3D-MERSI.MC" [809] 

10 MEMORY 19999:adr=20000 [715] 

II WHILE adr<23112 r1293 1 

12 READ b$:b=VAL("&"+b$) [1052 

13 IF b=10 THEN READ b$,c$:FOR i=l TO VAL( [9504] 
"&"+b$ ) :POKE adr,VAL("&"+c$):adr=adr4i:NEX 

T ELSE POKE adr, VAL("&"+b$):adr=adr+l 

14 WEND [390] 

15 SAVE"3d-mersi.mc",b,20000, 3112 [2303] 

16 DATA C3,80, 8C ,C3,DB,91,C3,95,96,C3,9C,9 [3575] 
6,C3,D7,97,C3,F6,97,21, FE, FF, 2 2, ID, 94 

17 DATA 22,1F,94,21,00,00,22,21,94, DD, 6E,0 [3668] 
0, DD, 66,01,46, E5, 21,01,00,11,03,00,19 

18 DATA 10, FD, 4D,44,E1,C5,E5,11,23,94,ED, B [3132] 
0,11 , 4 2, 94,El, CI,ED,BO,E5, 2 3,23,23,46 

19 DATA 21,04,00,11,03,00,19,10,FD,4D,44, E [3657] 
1,11,61,94, ED, BO,3E,00,32,B5,B8,32,B4 

20 DATA B8,21,OC, 3C, CD,80,90,CD,CI,90,C8, 2 [4417] 

1, E2,8C,22,FE,90,C3,10,90,21,E2,8C,22 

21 DATA FE,90,3A,B5,B8,FE,0B,D2,34,8D,CD, 0 [4322] 
9,BB,30,ED, FE,FO, CA,46,8D,FE,Fl,CA, 56 

22 DATA 8D, FE,F2, CA ,66,8D,FE,F3,CA,76,8D, F [3785] 

E, 37,CA, 86 ,8D,FE, 34 ,CA,EA, 8D, FE,38,CA 

23 DATA 4E,8E,FE,35,CA, BB, 8E,FE,39,CA,27,8 [3135] 

F, FE,36,CA,9 4, 8F,FE,20,CA, 00, 90,FE, 50 

24 DATA CA,6F,98,C3,E2,8C, 3A,21 ,94,3C,32,2 [4022] 
1,94,3E,00,32,B5,B8,32,B4,B8,C3,10,90 

25 DATA CD, 3C,91,CA,E2,8C,2A,1F,94,23,22,1 [3663] 
F,94,C3,10,90,CD,5A,91, CA ,E2,8C,2A, IF 


26 DATA 94, 2B, 22, IF, 94,C3, 10,90, CD,IE, 91, C [5030] 

A, E2,8C, 2A,ID, 94, 2B, 22,ID, 94, C3,10,90 

27 DATA CD, 00,91, CA,E2,8C,2A,1D,94,23,22,1 [5149] 
D, 94, C3, 10, 90, DD,21,24,94,11,03, 00,DD 

28 DATA 46,FF, DD, 70,1E,3A,62,94, DD, 96,01, 3 [4023] 
D,DD,77,21,DD,7E,02,DD,77,20,DD,7E,00 

29 DATA DD, 77, IF, DD, 19, 10, E6, CD, CI,90,CA,E [2987] 
2, 8C, 21, 43, 94, 11, 24,94,01,IE, 00, ED,BO 

30 DATA DD,21, 65, 94,DD,46, FD,DD, 4E, FE, DD, 7 [4219] 
1, FD, DD, 70,FE, DD, 46, FF,11, 03, 00, DD,4E 

31 DATA 02,3A,63, 94, DD,96,01, DD, 71,01,DD,7 [3585] 
7,02, DD, 19, 10, ED,C3, 10, 90, DD,21,24, 94 

32 DATA 11 ,03, 00, DD,46, FF,DD,70, IE, DD,7E,0 [3445] 

1, DD, 77,21, 3A, 63,94, DD, 96, 02,3D, DD, 77 

33 DATA 20 ,DD, 7E, 00,DD,77, IF ,DD, 19 ,10, E6 ,C [3565] 
D, CI, 90, CA,E2,8C,21,43, 94, 11, 24,94, 01 

34 DATA IE,00, ED, BO,DD, 21, 65, 94, DD, 46, FD, D [4007] 
D,4E,FE,DD,71,FD, DD,70, FE,DD,46, FF,11 

35 DATA 03,00,3A,62, 94, DD,96,02, DD, 4E, 01,D [3384] 
D,77,01, DD,71,02,DD, 19, 10, ED, C3, 10, 90 

36 DATA DD,21, 24, 94, 11, 03, 00,DD, 46, FF, DD,7 [4566] 
0, IE,3A,61,94, DD,96, 00, 3D,DD, 77,21,DD 

37 DATA 7 E , 0 2, DD ,77,1 F , DD,7 E ,0 1 , DD,77,20,D [4220] 
D , 1 9 , 10 , E6 ,CD, CI,90,CA, E2, 8C,21,43,94 

38 DATA 11, 24, 94, 01, IE,00,ED,BO,DD, 21, 65,9 [3723] 
4, DD, 46, FC, DD,4E, FE, DD,71, FC, DD,70, FE 

39 DATA DD,46,FF,11,03,00,DD,4E, 00 , DD,7E,0 [3747] 

2, CB,51,28,04,CB,91,CB,D7,DD,77,00,3A 

40 DATA 63,94,91,DD,77,02,DD ,19,10,E4,C3,1 [3675] 
0,90, DD, 21,24, 94, 11 ,03,00,DD, 46, FF, DD 

41 DATA 70 , IE, DD,7E,00,DD,77,21,3A, 63 , 94 ,D [4759] 
D,96,02,3D , DD, 7 7 , IF , DD, 7E,01 , DD,77,20 

42 DATA DD,19 ,1 0 , E6,CD,CI, 90, CA, E2, 8C ,21, 4 [3938] 
3,94,11,24,94,01,1E, 00, ED, BO, DD, 21, 65 

43 DATA 94, DD, 46,FC, DD, 4E, FE, DD, 71,FC,DD,7 [4699] 
0, FE,DD, 46,FF, 1] , 03, 00, DD,4E, 00 , 3A, 61 

44 DATA 94,DD,96, 02, CB, 51, 28, 04, CB,91, CB,D [3653] 
7 , DD,77 ,00, DD,71 , 02,DD,19,10,E5, C3 ,10 

45 DATA 90, DD, 21, 24,94, 11, 03, 00,DD,46,FF,D [2884] 

D, 7 0,1E , 3 A , 61,9 4 , DD, 9 6 , 0 0, 3 D, DD ,77,20 

46 DATA DD ,7 E,01 , DD ,77,IF , DD, 7E,02 , DD, 77,2 [3878] 
1,DD,19,10,E6,CD,CI,90,CA,E2,8C,21,43 

47 DATA 94, 11,24, 94,01,IE,00,ED,BO,DD,21, 6 [4160] 
5,94,DD, 46, FC,DD,4E,FD, DD, 71,FC,DD, 70 

48 DATA FD, DD, 46, FF, 11,03,00, DD, 4E, 00,DD, 7 [4482] 

E, 01,CB, 5 1,28,04, CB,91, CB, D7 ,DD,77,00 

49 DATA 3A, 62, 94,91, DD, 77, 01, DD, 19, 10,E4,C [4938] 
3,10, 90, DD, 21, 24,94, 11 ,03,00, DD,46, FF 

50 DATA DD,70, IE,DD,7E,00, DD, 77, 20, 3A, 62,9 [2286] 

4, DD,96,01, 3D,DD,77 ,1F, DD, 7E,02, DD,77 

51 DATA 2 1 , DD ,19,10, E6 , CD , CI, 90 ,CA, E2,8C , 2 [4997] 
1, 43,94,1 1, 24,94, 01,IE, 00,ED, BO, DD, 21 

52 DATA 65,94,DD,46, FC,DD,4E,FD,DD, 71, FC, D [3252] 
D, 70, FD, DD, 46, FF, 11,03,00, DD,4E,00, 3A 

53 DATA 61, 94, DD, 96,01,CB,51,28, 04, CB,91,C [4359] 

B, D7 , DD,77,00,DD, 71,01,DD, 19,1 0, E5, C3 

54 DATA 10, 90,21, 00,90,22, FE, 90,3A, 21, 94, 3 [4125] 

C, 32 , 21, 94 ,C3 , 10 , 90, 21, OC,3C, CD, 9F, 90 

55 DATA DD,21, 65,94, FD,21,OF,94,DD,46, FF,C [3581] 

5, FD,E5,DD,7E,00,E6,03,DD,4E,02,06,00 

56 DATA ED, 5B,21,94,FD,19, FD, 09, 6F, 26, 00, E [3432] 

D, 5B,ID , 94,19,FD, 46,00,CD, 72,90,E5, DD 

57 DATA 6E, 01, 26, 00,ED,5B,1F,94,19,FD, 46,0 [2754] 
0, CD,72, 90,Dl, DD, CB, 00, 56,C4 , CO,BB,DD 

58 DATA CB , 00 , 56 , CC, F6, BB,FD, El,CI , DD, 23, D [3399] 
D,23,DD,23,10, B2 , C3,DE, 90, 5D, 54, 48 , 05 

59 DATA 19, 10, FD, CB, 39,06,00,ED,42,C9,EB,2 [4197] 
1,51,CO,06,17,C5, 06, 08, 78, 01, 2E, 00, ED 

60 DATA BO, 01,D2, 07,09, 47,10,F3, 01,AF, 3F , E [4995] 
D,42, CI, 10,E8,C9,11,51,C0,06,17,C5,06 

61 DATA 08,78, 01,2E,00, ED,BO ,01 ,D2,07,EB,0 [5641] 
9,EB,47 , 10 ,Fl,01, AF , 3F, EB , ED , 4 2 ,EB,CI 

62 DATA 10, E4,C9,DD, 21, 42,94,DD, 46, 00, DD, 5 [4081] 
6, 01, DD,7E,02, DD, 5E, 03,CD,78,91,C8, DD 

63 DATA 23,DD,23, DD, 23, 10, EB,C9, DD, 21, 23,9 [4378] 
4, DD,46, 00, DD,56,01,DD,7E, 02, DD,5E, 03 

64 DATA IC,CD, 78,91,CA, A5, 91,DD, 23,DD, 23, D [3870] 
D, 23, 10, E8,C3,00, 00, DD, 21, 23, 94, DD, 46 

65 DATA 00, DD, 56, 01,DD,7E,02,DD, 5E,03, 14, C [4689] 

D, 78 , 91 ,C8,DD, 23, DD,23,DD, 23,10,EA, C9 

66 DATA DD, 21, 23,94,DD, 46, 00, DD, 56,01,DD, 7 [3294] 

E, 02 ,DD,5E,03, 15, CD, 78 , 91, C8 ,DD,2 3 , DD 

67 DATA 23, DD,23, 10, EA,C9,DD,21, 23, 94, DD, 4 [2754] 
6, 00,DD,56,01, DD, 7E, 02, DD,5E, 03,3C, CD 

68 DATA 78,91 ,C8,DD ,23, DD ,23, DD,23,10, EA ,C [2719] 
9, DD,21 ,23, 94, DD,46,00, DD, 56,01, DD,7E 

69 DATA 0 2 ,DD,5E, 03 ,3D , CD,7 8, 9 1, C8 , DD , 23 , D [4884] 

D, 23 , DD, 23,10, EA,C9,C6,03,21,1F,94,86 

70 DATA 4F,87 ,87 ,87 ,91,82,C6,03,2B,2B,86,2 [4123] 
A, 21 ,94, 16, 00, 19, 5D,OA,04 ,29, E5, 29, 19 

71 DATA Dl , 19 , 5F , 16 ,00, 19 ,11,5D, 7E ,19 ,7E, F [3581] 

E, FF, C9 , 21 ,2D, 95, 3A, 21 ,94 ,BE, 30,01, 77 


10/11’91 CPC 25 


























Programm 


72 DATA 00,21,23,94,00,46,00,00,56,01,00,7 
E,02,DD,5E,03,CD,78,91,36,FF,DD,23,DD 

73 DATA 23,DD,23,10,EA,2A,21,94,3A,63,94,3 
D,4F,06,00,09,CD,26,92,C9,06,OC,21,A9 

74 DATA 80,3E,00,32,2E,95,C5,E5,3E,00,01,3 
1,00,ED,B9,28,2C,E1,E5,11,5D,7E,ED,52 

75 DATA 4D,44,E1,E5,11,31,00,ED,52,Dl,D5,E 
D,B8,21,20,95,34,21,1C,5D,CD,9F,9 0,21 

76 DATA 0B,00,CD,26,92,3E,01,32,2E,95,E1,C 

1, C9 , El, CI, 11,31,00 , ED, 52,10 ,CO ,C9,3E 

77 DATA C9,32,6F,90,22,21,94,45,04,21,42,9 

4, DD,21,6B,95,DD,7E,00,77,23,DD,7E,01 

78 DATA 77,23,DD,7E,02,77,23,DD,7E,03,77,C 

5, DD,21,6F,95,06,19,C5,3A,21,94,87,87 

79 DATA 06,00,4F,21,3B,95,09,11,37,95,01,0 
4,00,ED,BO,DD,6E,02,DD,66,03,22,1F,94 

80 DATA DD,6E,04,DD,66,05,22,1D,94,DD,5E,0 
0,DD,56,01,01,06,00,DD,09,DD,E5,D5,CD 

81 DATA CI,90,C2,74,93,DD,El,DD,E5,DD,23,C 
D,1A,90,FD,21,OF,94,ED,5B,21,94,FD,19 

82 DATA 2A,1D,94,FD,46,00,CD,72,90,01,C3,0 
0,09,E5,2A,1F,94,23,FD,46,00,CD,72,90 

83 DATA 01,C7,00,09,Dl,CB,3C,CB,ID,7D,E5,E 
6,03,47,3E,03,90,FE,00,28,13,47,21,37 

84 DATA 95,4E,23,7E,71,23,4E,77,23,7E,71,3 
2,37,95,10,EE,E1,D5,11,00,00,CD,ID,BC 

85 DATA Dl,CB,3A,CB,1B,7B,CB,3A,CB,1B,CB,3 

A, CB,1B,19,FD,46,00,04,CB,38,04,DD,21 

86 DATA 33,95,E6,03,57,3E,03,92,5F,16,00,D 
D,19,DD,7E,00,4F,78,93,3D,57,CB,3A,CB 

87 DATA 3A,E6,03,5F,7A,16,00,DD,21,2F,95,D 
D,19,DD,56,00,32,3F,93,7A,32,4D,93,79 

88 DATA 32,35,93,E5,48,16,00,3A,37,95,AE,A 

2, AE,77,23,06,00,78,FE,00,28,07,3A,37 

89 DATA 95,77,23,10,FC,.16,00,3A,37,95,AE,A 
2,AE,77,21,37,95,56,23,7E,72,23,56,77 

90 DATA 23,7E,72,32,37,95,41,El,11,00,08,E 
D,5A,30,04,11,50,CO,19,10,BE,DD,El,DD 

91 DATA El,CI,05,78,FE,00,C2,51,92,21,21,9 
4,35,CI,05,78,FE,00,C2,4A,92,3E,C3,32 

92 DATA 6F,90,3E,OB,32,21,94,21,2D,95,96,3 

C, FE,00,C8,47,21,Bl,C7,C5,E5,3A,21,94 

93 DATA 3D,32,21,94,3C,87,87,06,00,4F,21,3 

B, 95,09,11,37,95,OE,04,ED,BO,El,E5,06 

94 DATA 04,DD,21,37,95,DD,7E,00,77,23,77,1 
1,FF,07,19,DD,23,10,F2,06,03,DD,21,37 

95 DATA 95,DD,7E,00,77,23,77,11,FF,07,19,D 

D, 23,10,F2,El,11,50>00,ED,52,C1,10,B3 

96 DATA 3A,2D,95,FE,00,C8,47,C5,E5,06,07,3 

E, 00,77,23,77,11,FF,07,19,10,F7,El,CI 

97 DATA 11,50,00,ED,52,10,E8,C9,48,3F,37,3 

0,2A,25,20,lC,19,16,13,10,OE,0C,OA,'110 

98 DATA 00,00,01,00,88,CC,EE,11,33,77,FF,0 
A,04,00,FF,99,99,FF,80,DO,70,20,BB,88 

99 DATA 11,DD,FO,F5,FO,F5,AA,55,AA,55,OA,0 
4,FO,FF,99,99,FF,80,DO,70,20,BB,88,11 

100 DATA DD,FO,F5,FO,F5,AA,55,AA,55,OA,04, 
FO,01,00,00,00,05,96,FE,FF,FE,FF,05,96 

101 DATA FF,FF,FE,FF,05,96,FE,FF,FF,FF,05, 
96,OA,04,FF,1B,96,02,00,FE,FF,1B,96,01 

102 DATA 00,FE,FF,1B,96,02,00,FF,FF,1B,96, 
01,00,FF,FF,31,96,00,00,FE,FF,31,96,00 

103 DATA 00,FF,FF,3E,96,02,00,02,00,3E,96, 
01,00,02,00,3E,96,02,00,01,00,3E,96,01 

104 DATA 00,01,00,54,96,02,00,00,00,54,96, 
01,00,00,00,61,96,FE,FF,02,00,61,96,FF 

105 DATA FF,02,00,61,96,FE,FF,01,00,61,96, 
FF,FF,01,00,77,96,00,00,02,00,77,96,00 

106 DATA 00,01,00,84,96,FE,FF,00,00,84,96, 
FF,FF,00,00,91,96,OA,04,00,07,04,01,00 

107 DATA 00,OA,06,01,00,01,01,00,00,05,OA, 
04,01,00,07,04,OA,04,00,01,01,00,OA,06 

108 DATA 01,00,05,00,00,01,00,01,04,05,00, 
00,01,00,OA,06,01,00,07,04,01,00,00,01 

109 DATA 01,00,00,01,01,00,01,01,00,00,04, 
OA,04,00,01,04,04,OA,04,00,01,01,00,01 

110 DATA 01,00,00,07,04,OA,04,00,01,00,OA, 
07,01,00,04,01,00,00,01,01,04,04,OA,04 

111 DATA 00,01,00,01,01,00,01,00,04,04,01, 
00,00,OA,07,01,00,01,04,00,00,21,IC,5D 

112 DATA CD,80,90,C9,DD,7E,08,32,9B,97,DD, 
7E,06,32,9A,97,CB,4F,20,00,21,58,97,23 

113 DATA 36,OE,21,7D,97,36,09,18,OB,21,58, 
97,23,36,12,21,7D,97,36,00,CB,47,28,12 

114 DATA 21,41,97,36,00,23,36,00,21,52,97, 
36,00,23,36,00,18,10,21,41,97,36,18,23 

115 DATA 36,07,21,52,97,36,18,23,36,02,DD, 
6E,00,DD,66,01,46,23,5E,23,56,D5,FD,El 

116 DATA DD,6E,02,DD,66,03,DD,5E,04,DD,56, 

05,C5,FD,7E,00,FD,E5,E5,D5,26,00,6F,29 

117 DATA 29,29,11,00,98,19,E5,DD,E1,3A,9B, 
9 7,CD,DE,BB,F 3,3 E,01,21,3C,9 7,3 6,2 8,Dl 


[2765] 

[2390] 

[4900] 

[4070] 

[4216] 

[2462] 

[3354] 

[3266] 

[2998] 
[4826] 
[5439] 

[ 3972 ] 

[3224 ] 

[4559] 

[4826] 

[3484] 

[3713] 

[3693] 

[4371] 

[2896] 

[3552] 

[4442] 

[3652] 

[3128] 

[3495] 

[3569] 

[3406] 

[3345] 

[3756] 

[3980] 

[4974] 

[3289] 

[3115] 

[2676] 

[3811] 

[4040] 

[4511 ] 
[2944] 
[4031] 
[4930] 
[3140] 
[4132] 
[3386] 
[3007] 
[4392] 
[3736] 


118 DATA El,06,08,E5,D5,DD,E5,F5,C5,DD,7E, [4141] 
00,DD,23,06,08,C5,F5,CB,47,28,0C,CD,9C 

119 DATA 97,18,07,2B> 2B, CD, 9C, 97,23'., 23,1B, [3917] 
1B,Fl,CB,3F,C1,10, E6,18,02,OA,04,2B,01 

120 DATA OE,00,EB,09,EB,CI,10,CF,Fl,DD,El, [3106] 
FE,00,28,OF,21,3c,97,36,20,Dl,El,3E,00 

121 DATA CD,DE,BB,F3,18,B2,C1,C1,01,20,00, [3821] 
EB,09,EB,3A,9A,97,CB,47,01,10,00,28,03 

122 DATA 01,20,00,09,FD,El,FD,23,CI,05,78, [4595] 
FE,00,C2,04,97,C9,01,01,D5,E5,CB,3A,CB 

123 DATA 1B,CB,3C,CB,1D,4D,44,21,C8,00,ED, [4415] 
42,7D,E6,07,67,AD,6F,4F,06,60,29,29,09 

124 DATA 29,7B,CB,3A,CB,1B,CB,3B,19,OE,88, [4142] 
E6,03,28,05,47,CB,39,10,FC,3A,A3,B6,AE 

125 DATA Al,AE,77,El,Dl,C9,21,Bl,33,11,31, [3863] 
C0,06,45,C5,01,1F,00,ED,BO,EB,01,El,07 

126 DATA ED,4A,30,04,01,50,CO,09,EB,CI,10, [4/79] 
EA,C9,11,B1,33,21,09,C0,06,45,C5,06,1F 

127 DATA C5,1A,D5,57,07,CB,10,CB,02,CB,10, [4134] 
07,CB,10,CB,02,CB,10,07,CB,11,CB,02,CB 

128 DATA 11,07,CB,11,CB,02,CB,11,07,CB,10, [4939] 
CB,0 2,CB,10,07,CB,10,CB,02,CB,10,07, CB 

129 DATA 11,CB,02,CB,11,07,CB,11,CB,02,CB, [3870] 
11,70,23,71,23,Dl,13,CI,10,BB,D5,E5,01 

130 DATA CI,07,ED,4A,30,04,01,50,CO,09,EB, [4146] 

El,01,C2,FF,09,01,3E,00,ED,BO,EB,01,CI 

131 DATA 07,ED,4A,30,04,01,50,CO,09,Dl,CI, [3493] 
10,90,C9,DD,21,85,98,CD,9C,96,CD,09,BB 

132 DATA FE,50,20,F9,3E,02,CD,DE,BB,C3,10, [4494] 
90,8E,98,2C,01,BO,00,01,00,02,05,91,98 

133 DATA 50,41,55,53,45,00 [1384] 


I ' "3D-CHR.LAD" => "3D-MERSI.CHR" [1465] 

10 SYMBOL AFTER 32 [1296] 

II SYMBOL 48,126,102,102,102,102,102,126,0 [1714] 

12 SYMBOL 49,56,24,24,24,24,24,24,0 [1712] 

13 SYMBOL 50,126,6,6,126,96,96,126,0 [1559] 

14 SYMBOL 51,126,6,6,62,6,6,126,0 [1992] 

15 SYMBOL 52,96,96,108,108,126,12,12,0 [2187] 

16 SYMBOL 53,126,96,96,126,6,6,126,0 [1750] 

17 SYMBOL 54,126,96,96,126,102,102,126,0 [2540] 

18 SYMBOL 55,126,6,6,6,6,6,6,0 [1539] 

19 SYMBOL 56,126,102,102,126,102,102,126,0 [2551] 

20 SYMBOL 57,126,102,102,126,6,6,126,0 [2283] 

21 SYMBOL 65,126,102,102,126,102,102,102,0 [2132] 

22 SYMBOL 66,126,102,102,124,102,102,126,0 [2091] 

23 SYMBOL 67,126,96,96,96,96,96,126,0 [2595] 

24 SYMBOL 68,124,102,102,102,102,102,124,0 [2217] 

25 SYMBOL 69,126,96,96,124,96,96,126,0 [1914] 

26 SYMBOL 70,126,96,96,124,96,96,96,0 [1779] 

27 SYMBOL 71,126,102,96,110,102,102,126,0 [2720] 

28 SYMBOL 72,102,102,102,126,102,102,102,0 [1714] 

29 SYMBOL 73,24,24,24,24,24,24,24,0 [1995] 

30 SYMBOL 74,6,6,6,6,102,102,126,0 t 1933 } 

31 SYMBOL 75,102,102,102,120,102,102,102,0 [2757] 

32 SYMBOL 76,96,96,96,96,96,96,126,0 [1592] 

33 SYMBOL 77,254,214,214,214,198,198,198,0 [2041] 

34 SYMBOL 78,126,102,102,102,102,102,102,0 [2301] 

35 SYMBOL 79,126,102,102,102,102,102,126,0 [2105] 

36 SYMBOL 80,126,102,102,126,96,96,96,0 [2081] 

37 SYMBOL 81,126,102,102,102,118,110,127,0 [1335] 

38 SYMBOL 82,126,102,102,126,120,102,102,0 [2201] 

39 SYMBOL 83,126,96,96,126,6,6,126,0 [2211] 

40 SYMBOL 84,126,24,24,24,24,24,24,0 [1693] 

41 SYMBOL 85,102,102,102,102,102,102,126,0 [1924] 

42 SYMBOL 86,102,102,102,102,102,102,24,0 [2000] 

43 SYMBOL 87,198,198,198,214,214,214,254,0 [2225] 

44 SYMBOL 88,102,102,102,24,102,102,102,0 [1857] 

45 SYMBOL 89,102,102,102,102,24,24,24,0 [2989] 

46 SYMBOL 90,126,6,12,24,48,96,126,0 [2043] 

47 SYMBOL 63,126,102,6,30,24,0,24,0 [1791] 

48 SYMBOL 164,254,130,186,162,186,130,254, [1.782] 
0 

49 adr=HIMEM+l t 3 ^] 

50 SAVE"3d-mersi.ehr",b,adr,1800 [2397] 


10 ' "3D-HI.LAD" erzeugt "3D-MERSI.HI " [2169] 

20 'schreibt eine leere Highscore-Liste au [3611] 

f Disk M171 

30 ' [ 117 1 

40 MODE l:PRINT"Zum Abspeichern Taste drue [5254] 
cken! " :CALL &BB06 

50 OPENOUT"3d-mersi.hi" [2Qoaj 

60 FOR i=l TO 15 : PRINT#9, " " : PRINT#9,0 :NEXT [2217] 
70 CLOSEOUT [902] 
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Bonus 


liirm-Duell und 
Disketten-Streamer 

Originelle Software-Überraschung auf der 
neuen DATABOX 

Geht es Ihnen auch so, daß Sie beim Lesen von Programmbeschreibungen 
bisweilen ins Gähnen geraten? Der siebenundzwanzigste Vokabeltrainer, das 
fünfunddreißigste Ballerspiel. Der Software-Einheitsbrei mag kaum noch 
jemanden aus dem Wald locken. Manchmal gibt es aber doch noch echte 
Aha-Erlebnisse. Auf die neue DATABOX zu diesem Heft haben wir gleich 
zwei Bonus-Programme gepackt, die unserer Meinung nach das Etikett 
“originell“ verdienen: ein herausforderndes Strategie-Spiel gegen den CPC 
und ein ungewöhnliches Utility zur Datensicherung. 


Auf der DATABOX 10/1191 finden Sie 
gleich zwei “Bonusse“. Das erste Pro¬ 
gramm heißt “Turris“ und bietet ge¬ 
hirnmassierende Strategie in Reinkul¬ 
tur. Auf einem sechs mal sechs Felder 
großen Spielbrett werden die Türme ge¬ 
baut. Mit jedem Zug setzt der jeweilige 
Bauherr ein Stockwerk auf ein noch 
freies oder bereits von ihm selbst be¬ 
bautes Feld. Je nach der Zahl ihrer di¬ 
rekten Nachbarn können die verschie¬ 
denen Felder unterschiedlich hohe Tür¬ 
me “vertragen“: Ein Turm auf einem 
Eck-Feld stürzt bereits ein, wenn er 
eine Höhe von 2 hat. Auf Feldern an ei¬ 
nem der Spielbrettränder rappelt es bei 
einer Höhe von 3, alle anderen Felder 
erleben bei einer Höhe von 4 einen Ein¬ 
sturz. Wenn ein Turm einstürzt, verteilt 
er seine “Etagen“ gleichmäßig an die 
umliegenden Felder. Diese gehen da¬ 
durch in den Besitz desjenigen über, 
dem der “explodierte“ Turm gehörte. 
Stockwerke, die bereits auf den “neu¬ 
eroberten“ Feldern standen - egal von 
wem gehen dann ebenfalls in den 
Besitz des “Eroberers“ über. Auf diese 



''Turris" trainieri Ihre kleinen grauen Zellen. 
Sie treten gegen einen Mitspieler oder gegen 
den Computer an. Dieses Spiel kennt man auf 
PC und Atari ST unter Namen wie "Sprengmei¬ 
ster“ oder “Explode“ 


Weise können unerwartete Kettenreak¬ 
tionen entstehen, die den Reiz des 
Spiels ausmachen. Sieger ist, wer mit 
seinen Türmen den Gegner vom Spiel¬ 
feld vertreiben konnte. 

Nach dem Programmstart erwartet 
“Turris“ zunächst die Eingabe der ak¬ 
tuellen Zeit. Dann wählt man die Zahl 
der Spieler: 0 (Computer gegen Com¬ 
puter), 1 (Spieler gegen Computer) 
oder 2 (Spieler gegen Spieler). Und 
schon geht’s los. Mit Cursortasten oder 
Joystick wird der Cursor von Feld zu 
Feld bewegt. Leertaste oder Feuer¬ 
knopf setzen ein Stockwerk auf ein 
Feld. Alles klar? Dann - auf zur 
Kampfbaustelle ... 

Der Datenschaufler 

Bei PCs und größeren Rechneranlagen 
gehört sie zum Alltag: Die Sicherung 
von Festplatten-Datenbeständen auf 
Band mit Hilfe eines Streamers. Warum 
soll man nicht auch bei einem disket¬ 
tengestützten System w ie dem CPC so 
etwas versuchen — zumal sich der 
CPC-Datenrecorder als Mini-Streamer 
geradezu anbietet? 

Unser “Streamer-Programm erlaubt es 
dem CPCler. ein Backup seiner Disket- 
ten-Software zu Archivierungszwecken 
auf Kassette anzufertigen. Es legt dabei 
ein durchaus akzeptables Tempo vor - 
sehr viel flotter als das übliche Laden 
und Speichern von Kassettenprogram¬ 
men. Natürlich darf die zu sichernde 
Diskette nicht kopiergeschützt sein, 
denn zum “Knacken“ eines solchen 
Schutzes ist das “Streamer“Programm 
nicht in der Lage. 

Die wenigen Funktionen des Pro¬ 
gramms werden über ein zentrales 


Menü gesteuert. Die Baudrate läßt sich 
zwischen 1000 und 3960 einstellcn. die 
Vorgabe ist 3000. Je höher die Baudra¬ 
te, desto schneller geht das Laden und 
Speichern vonstatten, desto größer ist 
allerdings auch die Gefahr von “Ausset¬ 
zern". Bei 3000 Baud lassen sich auf ei¬ 
ner Seite einer Kassette volle vier Dis¬ 
kettenseiten unterbringen. Nach jedem 
Abspeichern oder Laden läßt sich ein 
Name mit einer Länge von maximal 16 
Zeichen angeben. Er kann dem Anwen¬ 
der als Orientierungshilfe dienen, ist 
aber nicht unbedingt nötig. Wenn man 
einen Namen benutzt, wird nur diejeni¬ 
ge Kassettenkopie überspielt, die die 
betreffende Bezeichnung trägt. So ist es 
möglich, von verschiedenen Backups 
auf einer Kassette nur ein ganz be¬ 
stimmtes zu übertragen. 

Beim Rücktransfer einer Kopie auf die 
Diskette ist darauf zu achten, daß die 
eingelegte Diskette das gleiche Format 
(Data, CP/M, IBM) hat w'ie die zuvor 
auf Band gesicherte. Zur besseren 
Orientierung zeigt das Programm das 
jeweilige Format der gerade eingeleg¬ 
ten Diskette am unteren Bildschirm¬ 
rand an. Es versteht sich von selbst, daß 
beim Rücktransfer von Daten auf eine 
Diskette alles, w'as sich auf dieser Dis¬ 
kette bereits befinden sollte, zerstört 
wird. 

Wie erreicht das Programm nun seine 
hohe Datendichte, und warum kann 
man die "gebackuptcn“ Programme auf 
der Kassette nicht wie normale Kasset¬ 
tenprogramme auch von dort starten? 
Abgesehen davon, daß die Abspeiche¬ 
rung mit der erhöhten (wählbaren) 
Baudrate erfolgt, verwendet der “Strea¬ 
mer" noch eine spezielle ROM-Routi- 
ne. Sie sorgt dafür, daß sämtliche Daten 
headcrlos, also ohne jeglichen zeitrau¬ 
benden Vorspann, auf Band transferiert 
werden. Alsdann — fröhliches Backup! 

(sz) 


Otresner Uer 2.5 ♦ '87 hy ftrtHare 


■n Diskette auf Darrt 
mm Darrt auf Diskette 

Dairtrate einstellen 
KHH Laufwerk wechseln 

■ Pr o'trsnnenÄs 
Ihre Hall 1 ■ 


Laufw.: fl FOrnat : IDM Daurt: 3000 


Ob der “Streamer “ die langersehnte Lösung für 
Ihre Datensicherungs-Probleme ist oder nur eine 
skurrile, aber geniale Idee - das müssen Sie 
selbst entscheiden. Er sichert den Inhalt von Dis¬ 
ketten im Eiltempo auf Kassetten 
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Gobang 

Strategie für zwei 


Gerade die auf Computer umgesetzten Brettspiele finden immer wie¬ 
der viele Freunde und werden gerne und oft gespielt. Kein sinnloses 
Geballere oder Töten von Gegnern, sondern Denktraining und ein 
wenig Geist machen diese Spiele so beliebt. 


Da Brettspiele in den meisten Fällen für 
mehrere Spieler ausgelegt sind, ist es 
oft recht schwer, einen guten Algorith¬ 
mus zu programmieren, der den Com¬ 
puter als Gegner zuläßt. Ob dies jedoch 
Sinn und Zweck dieser Art Spiele ist. 
mag ich bezweifeln. Ich möchte sogar 
so weit gehen zu behaupten, daß diese 
Spiele ihre Daseinsberechtigung nur 
damit begründen können, daß sie ein 
gemeinschaftliches Erlebnis für alle 
Mitspieler darstellen sollen. Wo wäre 
der Sinn, wenn man gegen einen stupi¬ 
den Algorithmus spielen muß, der ent¬ 
weder dem Mitspieler keine Chance 
läßt oder aber der so leicht zu übertöl¬ 
peln ist, daß das Spiel im Endeffekt kei¬ 
nen Spaß mehr macht und auf irgend¬ 
einer Diskette sein Dasein fristet, bis 
sich der erste Schreib-/Lesefehler auf 
der Diskette eingeschlichen hat? 

Aus diesem Grund stellen wir Ihnen 
hier ein Programm vor, das sich nur mit 


zwei Spielern spielen läßt und dem 
Computer lediglich die Rolle des Spiel¬ 
bretts zuweist. Da die Leistung des 
Computers aber auch irgendwie ausge¬ 
nutzt werden muß, übernimmt er 
zusätzlich die Aufgabe der Überwa¬ 
chung. Ebenfalls erkennt er, wenn zum 
Beispiel ein Stein umgefärbt werden 
muß. 

Computer 

vereinsamen? 

Daß der Computer eine mentale Wir¬ 
kung auf den Spieler hat, kann und darf 
nicht bestritten werden. Eine Vereinsa¬ 
mung wird jedoch sicher nicht auftre- 
ten. wenn Spiele dieser Art verwendet 
werden. Die Gründe hierfür wurden 
oben schon versucht zu verdeutlichen. 
Doch genug davon und weiter mit dem 
Spiel: 

Vor dem ersten Spiel liegt auch hier erst 


einmal die Durststrecke des Abtippens, 
wobei diese sich noch in Grenzen hält. 
Zwei Seiten Listing sind doch wirklich 
nicht die Welt, oder? Geben Sie also zu¬ 
erst das Ladeprogramm ein, und spei¬ 
chern Sie es unter dem Namen GO¬ 
BANG. BAS ab. Nun müssen Sie das 
Hauptprogramm mit dem Namen GO¬ 
BANG. PRG eintippen und ebenfalls 
auf dem Datenträger abspeichern. 

Am Anfang war ... 

Sollte sich nirgends ein Fehler ein¬ 
geschlichen haben, kann das Programm 
mit RUN“GOBANG“ gestartet werden 
und der Maschinencode wird in den 
Speicher Ihres CPC 6128 oder 6128 
Plus gepoked. Nun wird das Hauptpro¬ 
gramm nachgeladen und das Spielfeld 
aufgebaut. Am linken Rand erscheint 
der Titel, die Steinfärbe des ersten und 
des zweiten Spielers sowie jeweils dar¬ 
unter die Anzahl seiner Steine. Am 
rechten Rand (und in der Milte) können 
Sie nach kurzer Zeit das Spielfeld er¬ 
blicken, das vom Aulbau her einem 
Schachbrett ähnelt. 

Genau wie beim Schach besteht das 
Spielfeld aus acht mal acht Feldern, die 
jeweils zur besseren Erkennung in zwei 
unterschiedlichen Farben dargestellt 
werden. 

Auch die von den Spielern einzusetzen¬ 
den Steine heben sich farblich vonein¬ 
ander ab. 

Das erste Spiel 

Ziel bei diesem Spiel ist es, dem Geg¬ 
ner alle Steine abzunehmen. Als weite¬ 
re Möglichkeit können von beiden 
Spielern fünf oder mehr Steine in eine 
Reihe gebracht werden. Hierbei steht 
offen, ob die Steine waagerecht, senk¬ 
recht oder diagonal angeordnet sind. 
Dies kann durch abwechselndes Setzen 
eines Steins der eigenen Farbe mit dem 
Joystick oder den Cursortasten (Feuer 
oder Copy) erreicht werden. 

Dem ersten Spieler werden die Cursor¬ 
tasten zugeordnet, dem zweiten der Joy¬ 
stick. 

Ein oder mehrere Steine, die zwischen 
gegnerischen Steinen eingeschlossen 
sind, lösen sich mit Krachen auf und 
werden durch Steine der Farbe des 
Spielers ersetzt, der gerade am Zug ist. 
Wird kein Stein eingeschlossen, gehen 
irgendwann einem Spieler die Steine 
aus, und er hat das Spiel verloren. 

Ein blinkender Rahmen zeigt jedem 
Spieler an, wann er an der Reihe ist. 

Wolfgang Stengel/rs 
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Steckbrief Gobang 

Autor: Wolfgang Stengel 

Kurzinfo: 

System: CPC 6128/6128 Plus 

Versuchen Sie durch geschicktes Setzen von Steinen, entweder dem Mit- 

Spieleranzahl: 2 

spicler alle Steine abzunehmen oder aber fünf Steine in eine Reihe zu 

Steuerung: Joystick/Cursortasten+Copy 

bringen. 


100 ' GOBANG.BAS [986] 

110 ' [117] 

120 ' G 0 B A N G [607] 

130 ' [117] 

140 ' MC-und Grafik-Lader [2757] 

150 ' [117] 

160 ' [117] 

170 '1991 von Wolfgang Stengel [1557] 

180 ' [117] 

190 ' [2465] 

200 ' [117] 

210 GOSUB 1070:GOSUB 1140:RESTORE 210 [2110] 

220 PEN 1:SYMBOL AFTER 32:hi=HIMEM:LOCATE [9108] 

11,25:PRINT"Bitte warten ...":MEMORY &5FFF 
:FOR x=&6000 TO S.6272 STEP 8 

230 ch=0:FOR y=x TO x+7:READ a$:s=VAL("&"+ [7940] 
a$) :ch=ch4-s:POKE y,s:NEXT:READ ch$:IF NOT 
ch-VAL("&"+ch$) THEN PRINT"Fehler in Zeile 
";2:END 

240 NEXT:FOR h=hi TO hi+128*8:POKE h,PEEK( [3717] 
h) AND PEEK(h)/2:NEXT 

250 FOR x= &7000 TO &7090:POKE x,&30:NEXT:F [6039] 
OR x=&6272 TO &6302:POKE X,&C:NEXT:FOR X=& 

6303 TO &6393:POKE x,&C0:NEXT 

260 CALL &AF00,255:CLS:RUN"GOBANG.PRG" [2116] 

270 DATA DD,56,05,DD,5E,04,DD,66,3BA [581] 

280 DATA 03,DD,6E,02,CD,ID,BC,E5,3DB [2554] 

290 DATA Dl,DD,66,01,DD,6E,00,06,366 [1986] 

300 DATA 18,C5,D5,06,06,1A,AE,12,298 [1587] 

310 DATA 23,13,10,F9,Dl,EB,CD,26,3EE [1437] 

320 DATA BC,EB,C1,10,EC,C9,00,00,42D [1784] 

330 DATA F0,AO,00,00,00,50,FQ,F0,3CQ [1677] 

340 DATA 00,00,OQ,FO,78,FO,AO,ÖO,2F8 [1006] 

350 DATA 00,B4,F0,F0,A0,00,50,78,3FC [1822] 

360 DATA FO,FO,FO,O0,5O,78,FO,FO,578 [2342] 

370 DATA FO,00,B4,FO,FO,FO,FO,A0,604 [1962] 

380 DATA B4,FO,F0,FO,FO,AO,F0,FO,6F4 [805] 

390 DATA F0,F0,F0,AQ,F0,F0,FO,FO,730 [2796] 

400 DATA FO,AO,FO,FO,FO,FO,FO,AO,6EO [2178] 

410 DATA FO,FO,FO,FO,FO,AO,FO,FO,730 [2412] 

420 DATA F0,F0,F0,A0,F0,F0,F0,F0,730 [2796] 

430 DATA FO,AO,FO,FO,FO,FO,FO,AO,6E0 [2178] 

440 DATA FO,FO,FO,FO,FO,AO,FO,FO,730 [2412] 

450 DATA FO,FO,FO,AO,50,FO,FO,FO,690 [2363] 

460 DATA FO,00,50,FO,FO,FO,FO,00,500 [1939] 

470 DATA 0O,FO,FO,F0,AO,00,00,F0,460 [1572] 

480 DATA FO,FO,AO,00,00,50,FO,FO,4B0 [2707] 

490 DATA 00,00,00,00,FO,AO,00,00,190 [1594] 

500 DATA 00,00,00,00,00,00,00,00,000 [1005] 

510 DATA 00,30,20,00,00,00,10,30,090 [1724] 

520 DATA 30,00,00,00,30,38,30,20,0E8 [1234] 

530 DATA 00,00,34,30,30,20,00,10,0C4 [1066] 

540 DATA 38,30,30,30,00,10,38,30,140 [1441] 

550 DATA 30,30,00,34,30,30,30,30,154 [1808] 

560 DATA 20,34,30,30,30,30,20,30,164 [1680] 

570 DATA 30,30,30,30,20,30,30,30,170 [1974] 

580 DATA 30,30,20,30,30,30,30,30,170 [2202] 

590 DATA 20,30,30,30,30,30,20,30,160 [1068] 

600 DATA 30,30,30,30,20,30,30,30,170 [1974] 

610 DATA 30,30,20,30,30,30,30,30,170 [2202] 

620 DATA 20,30,30,30,30,30,20,30,160 [1068] 

630 DATA 30,30,30,30,20,10,30,30,150 [1659] 

640 DATA 30,30,00,10,30,30,30,30,130 [1880] 

650 DATA 00,00,30,30,30,20,00,00,0B0 [617] 

660 DATA 30,30,30,20,00,00,10,30,0F0 [1954] 

670 DATA 30,00,00,00,00,30,20,00,080 [1365] 

680 DATA 00,00,00,00,00,00,00.,00,000 [1005] 

690 DATA OC,OC,00,04,OC,0C,0C,08,048 [1824] 

700 DATA 00,00,0C,0C,OC,00,00,00,024 [1266] 

710 DATA 04,OC,OC,00,00,00,04,OC,02C [1610] 

720 DATA 08,00,00,00,00,OC,08,00,01C [1164] 

730 DATA 00,00,00,0C,0Ü,00,00,00,00C [1537] 

740 DATA 00,04,00,00,00,00,00,04,008 [1661] 

750 DATA 00,00,00,00,00,04,00,00,004 [575] 

760 DATA 00,00,00,04,00,00,00,00,004 [1572] 

770 DATA 00,04,00,00,00,00,00,04,008 [1661] 

780 DATA 00,00,00,00,00,04,00,00,004 [575] 

790 DATA 00,00,00,04,00,00,00,00,004 [1572] 

800 DATA 00,04,00,00,00,00,00,04,008 [1661] 

810 DATA 00,00,00,00,00,04,08,00,00C [1060] 

820 DATA 00,00,00,OC,08,00,00,00,014 [1329] 


830 DATA 00,OC,OC,00,00,00,04,OC,028 [1280] 

840 DATA 0c,00,00,00,04,0c,0c,08,030 [1342] 

850 DATA 00,00,0C,OC,0C,0C,00,04,034 [1081] 

860 DATA OC,OC,OC,OC,OC,OC,OC,OC,060 [1792] 

870 DATA 00,CO,CO,00,40,CO,CO,CO,400 [2186] 

880 DATA 80,00,00,CO,CO,CO,00,00,2C0 11660] 

890 DATA 00,40,CO,CO,00,00,00,40,200 [1825] 

900 DATA CO,80,00,00,00,00,CO,80,280 [1227] 

910 DATA 00,00,00,00,CO,00,00,00,0C0 [1429] 

920 DATA 00,00,40,00,00,00,00,00,040 [1470] 

930 DATA 40,00,00,00,00,00,40,00,080 [551] 

940 DATA 00,00,00,00,40,00,00,00,040 [1777] 

950 DATA 00,00,40,00,00,00,00,00,040 [1470] 

960 DATA 40,00,00,00,00,00,40,00,080 [551] 

970 DATA 00,00,00,00,40,00,00,00,040 [1777] 

980 DATA 00,00,40,00,00,00,00,00,040 [1470] 

990 DATA 40,00,00,00,00,00,40,80,100 [320] 

1000 DATA 00,00,00,00,CO,80,00,00,140 [1765] 

1010 DATA 00,00,CO,CO,00,00,00,40,ICO [1073] 

1020 DATA CO,CO,00,00,00,40,C0,C0,340 [1137] 

1030 DATA 80,00,00,C0,C0,CO,CO,00,380 [1372] 

1040 DATA 40,CO,CO,CO,CO,CO,CO,CO,580 [588] 

1050 DATA CO,00,OC,OC,OC,OC,OC,OC,108 [859] 

1060 ' [117] 

1070 MODE 1:INK 0,3:BORDER 3:LOCATE 1,25:P [6959] 
EN 3:INK 3,3:INK 2,0:INK 1,24:PRINT"GOBANG 
":FOR X=1 TO 6*16 STEP 2:FOR y=0 TO 16 STE 
P 2 


1080 IF TEST(x,y)=3 THEN GOSUB 1100 [2716] 

1090 NEXT:NEXT:GOTO 1110 [1516] 

1100 FOR m=0 TO 6 STEP 2:PLOT 100+X*4+m,30 [6193] 
0 + y*4,1:DRAWR 0,6:NEXT:PLOT 100+x*4+m,300+ 
y*4,2:DRAWR 0,6:DRAWR 2,0:DRAWR 0,-6:RETUR 
N 


1110 LOCATE 1,25:PRINT SPACE$(6);:PEN 3:IN [7598] 
K 3,25:LOCATE 3,12:PRINT"Ein Denk-Spiel vo 
n Wolfgang Stengel"; 

1120 PRINT CHR$(23)"1";:PLOT 0,191,2:DRAWR [5969] 
638,0:DRAW 638,239:DRAWR -638,0:DRAW 0,19 
3:RETURN 

1130 ' [H7] 

1140 DATA 21,00,40,22,46,AF,06,02,C5,21,FF [4311] 

,FF,7C,B5,CA,30,AF,E5,CD,34,AF,CB, 3C 

1150 DATA CB,1D / CB,3C,CB,1D,01,00,20,09,CÜ [3014] 

,48,AF,09,01,00,40,09,09,77,E1,2B,C3 

1160 DATA OC, AF, CI, 10 , D5 , C9,2A, 46 , AF, ED, 5i? [4291 ] 

,84,67,7D,C6,OA,6F,7C,AD,6F,22,46,AF 

1170 DATA C9,51,92,DD,7E,00,B7,7E,C8,AF,C9 [3725] 

,21,00,CO,11,00,20,01,00,40,ED,BO,C9 

1180 sx=0:RESTORE 1140:FOR x=&AF00 TO &AF5 [9061] 

B:READ a$:POKE x,VAL("&"+a$):sx=sx+PEEK(x) 

:NEXT:IF NOT sx=10081 THEN PRINT"Fehler in 
Zeile 1040";:END 

1190 RETURN [555] 


100 

/. 

GOBANG.PRG 

110 

/ 


120 

/ 

GOBANG 

130 

/ 


140 

/ 


150 

/ 

/ 

( Let's Strategie! ) 

170 

/ 


180 

/ 

von Wolfgang Stengel 

190 

/ 


200 

t 


210 



220 

/ 



230 SYMBOL 251,238,138,238,40,232:SYMBOL 2 
52,186,162,178,162,187:SYMBOL 253,59,34,51 
,34,58,0,0,0:SYMBOL 254,128,128,0,128,128 
240 MODE 0:RESTORE 240:FOR s=0 TO 9:READ a 
:INK S,a:NEXT:DATA 0,15,3,26,2,13,26,24,6, 
1:BORDER 0:FOR S=1 TO 144:POKE &7000-l+s,4 
8:NEXT 

250 DIM co(2),adr(6),feld(8,8),n$(2),p(2), 
Z(9,3,5):DATA 6000,6091,6122,61B3,6244,62D 
5:FOR s=l TO 6:READ a$:adr(s)=VAL("&"+a$)+ 
&2E:NEXT:WINDOW 1,7,1,25:WINDOW #1,8,40,1, 
25:co(1)=263:co(2)=198:PAPER #1,4:CLS#1:FO 
R X=1 TO 8:FOR y=l TO 8 


[871] 

[117] 

[607] 

[117] 

[117] 

[2025] 

[117] 

[137] 

[1193] 

[117] 

[2652] 

[117] 

[117] 

[5998] 


[7257] 


[10992] 
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260 GOSUB 280:GOSUB 300:CALL &6000,xv,yv,& [12466] 
7000:CALL &6000,xv,yv,adr(5+z):NEXT : NEXT :F 
OR x=251 TO 254:sp$=sp$+CHR$(x) : NEXT:RESTO 
RE 260:DATA 8,1,0,2,9,74,75,72,73,76:FOR d 
=1 TO 2:READ 1(d),r(d),o(d),u(d),fe(d):NEX 
T : GOTO 360 

270 ' Rot oder orange ? 

280 xf=(x/2=INT(x/2)):yf=(y/2=INT(y/2)):z= 

(xf=yf)*-l:RETURN 
290 ' Coordinate Berechnen 
300 xv=48+x*12:yv=y*24+3 : RETURN 
310 ' Von wem das ganze? 

320 SYMBOL 200,0 ,0 ,174,170,78,0,0,0 : SYMBOL 
201,0,0,192,160,160,0,0,0:vo$=CHR$(200)+C 
HRS(201):SYMBOL 202,160,160,174,234,174,0, 

0,0:SYMBOL 203,176,160,183,165,167,1,1,7:S 
YMBOL 204,0,0,115,82,122,0,0,0:SYMBOL 205, 
0,0,56,168,184,8,8,56 

330 FOR x=202 TO 205:wo$=WO$+CHR$(x):NEXT : 

SYMBOL 206,232,137,237,41,237,0,0,0:SYMBOL 
207,0,192,217,21,213,0,0,1:SYMBOL 208,1,2 
9,221,81,221,64,64,192:FOR X=206 TO 208:st 
S=st$+CHR$(x):NEXT 

340 LOCATE 1,23:PEN 1:PRINT vo$:PEN 3:PRIN 
T wo$:PEN 7:PRINT st$;:RETURN 
350 ' Spielvorbereitungen 

360 CALL &6000,40,142,adr(1) : CALL &600C,40 
,110,adr(2):p(l) = 12:p(2) = 12 : LOCATE 1,25: IN 
K 15,0:INK 14,0:PEN 15:PRINT"GOBANG";:FOR 
X=0 TO 6*32 STEP 4 : FOR y=0 TO 16 STEP 2 
370 IF TEST(x,y)>13 THEN PLOT x,y*4+330:DR 
AWR 0,8,7:PLOT x+4,y*4+334:DRAWR 0,6,4 
380 NEXT:NEXT:SPEED INK 10,10 
390 DATA 7 , 5,5,5,7,1,1,1,1,1,7,1,7,4,7,7,1 
3 17 

400 DATA 4, 6,7,2,2,7,4,7,1,7,4,4,7,5,7,7,1 
,1,1,1 

410 DATA 7,5,7,5,7,7,5,7,1,7 
420 GOSUB 320:FOR z=0 TO 9:FOR S=1 TO 5 
430 READ x:x$=BIN$(x,3):FOR r=l TO 3:z(z,r 
,s)=VAL(MID$(x$,r,1)):NEXT:NEXT:NEXT:PEN 1 
:TAG:PLOT -4,-4,1:FOR sp=l TO 2:MOVE 12,(2 
6-(9+(sp-l)*4))*16-2:PRINT spS ; :z=sp:x=117 
: y=co(sp) : m=1 : GOSUB 510:NEXT : TAGOFF:GOSUB 
480:GOTO 550 
440 ' Feld beschreiben 

450 GOSUB 280:GOSUB 300:CALL &6000,XV,yv,a 
dr(5+z):p=feld(x,y):IF p=0 THEN 460 ELSE C 
ALL &6000,xv,yv,adr(3+z):CALL &6000,xv,yv, 
adr(p):RETURN 

460 CALL &6000 ,XV,yv,adr(5+z)-.RETURN 
470 ' Spielstand printen 

480 FOR sp=l TO 2:S$=STR$(p(sp)):GOSUB 490 
:FOR d=l TO 2:Z=ASC(MID$(s$,d+l,1))-ASC("0 
"):x=(d-1)*16+8:y=CO(sp)-l6:m=4:GOSUB 510: 

NEXT:NEXT:RETURN 

490 IF p(Sp)<10 THEN S$ = " 0"+MID$(S$,2 ,1 ) 

500 RETURN 

510 FOR xm=l TO 3:FOR ym=l TO 5 : PLOT x+xm* 

4,y+(5-ym)*2,z(z,xm,ym)*m:NEXT:NEXT:RETURN 
520 ' 

530 ' Hauptschleife 
540 ' 

550 FOR pl=l TO 2 : GOSUB 600 : NEXT : GOTO 550 
560 PRINT CHR$(23)"0";:INK 13,färb,0:PLOT 
0,co(pl)+22,c:DRAWR 144,0:DRAWR 0,-44:DRAW 
R -144,0:DRAWR 0,44:RETURN 
570 ' 

580 ' Ziehen 
590 ' 

600 c=13:farb=l:GOSUB 560 

610 GOSUB 720 : IF feld(xm,ym)>0 THEN 610 EL 
SE SOUND l,20,3,15:p(pl)=p(pl)-l:feld(xm,y 
m)=pl:x=xm:y=ym:GOSUB 450 

620 DATA -1,0,-1,1,0,1,1,1,1,0,1,-1,0,-1,- 
1,-1:RESTORE 620 

630 FOR me=l TO 8:READ xu,yu:af=l : GOSUB 65 
0:xm=xxx:ym=yyy:NEXT:c=0:GOSUB 560:GOSUB 4 
80:xm=xxx:ym=yyy : GOSUB 820:RETURN 
640 ' Fetz? 

650 xxx=xm : yyy=ym:ma=0 : xm=xm+xu : ym=ym+yu: G 
OSUB 680:IF ero=l THEN RETURN ELSE IF feld 
(xm,ym)=0 OR feld(xm,ym)=pl THEN RETURN 
660 ma=ma+1:xm=xm+xu : ym=ym+yu : GOSUB 680:IF 
ero=l THEN RETURN ELSE IF feld(xm,ym)=0 T 
HEN RETURN ELSE IF feld(xm,ym)=pl THEN 670 
ELSE 660 

670 xx=xxx : yy=yyy : FOR mu=l TO ma : xx=xx+xu : 
yy=yy+yu:x=xx:y=yy:GOSUB 450:p(3-pl)=p(3-p 
1)+1:feld(xx,yy)=0:SOUND 1,1,5,15,,,31:SOU 
ND 1,1 ,1 ,1:NEXT:RETURN 
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680 IF xm>8 OR xm<l OR ym>8 OR ym<l THEN e [3666] 
ro=l ELSE ero=0 
690 RETURN 

700 ' Maus-Steuerung 

7 20 mx=4:my=4:PRINT CHR$ (2 3)"1";:GOSUB 7 60 
730 CALL &BB06:GOSUB 760:xm=xm+INKEY(r(pl) 

)-INKEY(l(pl) ): IF xm>8 THEN xm=l ELSE IF X 
m<l THEN xm=8 , ,, v 

740 ym=ym+INKEY(o(pl))-INKEY(u(pl)) : IF ym> 

8 THEN ym=l ELSE IF ym<l THEN ym=8 
750 IF INKEY(fe(pl))=0 THEN RETURN ELSE GO 
SUB 760:GOTO 730 

760 x=xm : y=ym : GOSUB 280:PLOT xm*48+196,ym* 

48,1+z : DRAWR 20,0:PLOT xm*48+196,ym*48 : DRA 
WR 0,-12:PLOT xm*48+196,ym*48 : DRAWR 32,-16 
: PLOT xm*48+196,ym*48 : RETURN 
770 ' Gewinnsteine setzen 

780 GOSUB 280 : Z= (1-Z) + 3 : GOSUB 300:CALL &60 
00,xv,yv,adr(5) : CALL &6000,xv,yv,adr(6):CA 
LL &6000,xv,yv,adr(z) : CALL &6000,xv,yv,adr 
(1) : RETURN 

790 xu=xu*-l:yu=yu*-l:x=xxx:y=yyy:xma=ma-z 
ma:FOR lo=l TO zma 

800 GOSUB 450 : GOSUB 280:CALL &6000,xv,yv,a 
dr(z+5) : GOSUB 780:x=x+xu:y=y+yu:NEXT : x-xxx 
:y=yyy : :xu=xu*-l:yu=yu*-l:FOR lo=l TO xma : 

X=X+XU:y=y+yu : GOSUB 450:GOSUB 280:CALL &60 
00,xv,yv,adr(z+5):GOSUB 780:NEXT 
810 farb=26:c=13:GOSUB 560:SPEED INK 2,2:F 
OR lo=l TO 200 : CALL &BD19:NEXT:RETURN 
820 ' 

830 ' Gewonnen? 

840 ' 

850 IF p(3-pl)=0 THEN sp=3-pl:win=pl:s$ = ST 
R$(p (sp)) : GOSUB 490:FOR d=l TO 2:z=ASC(MID 
$(s$,d+l,1))-ASC{ "0") : x= (d-1)*16+8:y=co(sp 
)-16:m=l2 : INK 12,26,0:GOSUB 510 : NEXT : farb= 

26:c=13:GOSUB 560:SPEED INK 2,2:FOR lo=l T 
O 200:CALL &BD19:NEXT:GOTO 960 
860 RESTORE 620:FOR me=l TO 4:READ xu,yu:m 
a=l:GOSUB 870:IF wi=l THEN win=pl:GOTO 960 
ELSE NEXT-.RETURN 
87 0 xxx=xm:yyy=ym:ab=0 

880 xm=xm+xu:ym=ym+yu:GOSUB 680:IF ero=l T 
HEN 920 ELSE IF feld(xm,ym)=0 OR feld(xm,y 
m)=3-pl THEN 920 ELSE ma=ma+l:GOTO 880 
890 IF ma<5 THEN wi=0 ELSE wi=l:GOSUB 790 
900 xm=xxx : ym=yyy:RETURN 
910 RETURN 

920 IF ab=l THEN 890 ELSE ab=l:zma=ma:xu=x 
u*-l:yu=yu*-l : xm=xxx:ym=yyy : GOTO 880 
930 ' 

940 ' Gewonnen! 

950 ' 

960 CALL &AF00,255-.MODE 0: PRINT CHR$(23)"0 
"CHRS(22)"0" ; :x=0:FOR XV=1 TO 156 STEP 12: 
x=x+l:y=0 

970 FOR yv=l TO 192 STEP 24:y=y+l:GOSUB 28 
0 : CALL &6000,2+xv,30+yv,adr(5+z):NEXT : NEXT 
980 z=0 : zf=1:x=2:y=199:GOSUB 990:z=l:zf=0 : 
x=2:y=31 : GOSUB 990 : z=0:zf=0:x=146:y=199:GO 
SUB 990:z=l:zf=1:x=146:y=31 : GOSUB 990:GOTO 
1000 

990 CALL &6000,x,y,adr(5+z) : CALL &6000,x,y 
,adr(3+z):CALL &6000,x,y,adr(1+zf):RETURN 
1000 a$="PLAYER"+STRS(win):fa=4:x=192:y=30 
0:xf=l:yf=4:GOSUB 1030:PLOT -4,-4,13 : PRINT 
CHR$(23)"1";:TAG : INK 15,26:INK 12,26:MOVE 
174 , 226 : PRINT"WINS OVER"; : TAGOFF:a$="PLAY 
ER"+STR$(3-win) : fa=10:x=72:y=130:xf=2:yf=2 
: GOSUB 1030 

1010 LOCATE 6, 25: PEN 1: PRINT vo$ ;: PEN 3: PR 
INT wo$ ; :PEN 7:PRINT st$;:CÄLL &BB06:LOCAT 
E 6,25:INPUT"Nochmal ? " ,n$:n$=UPPER$(n$): 

IF n$="Y " OR n$="j" THEN CALL &AF00,255:RU 
N ELSE MODE 1 : END 
1020 • 

1030 PRINT CHR$(23) " 0 ";: PEN 14:INK 14,0:LO 
CATE 1,25:PRINT a$;:z=LEN(a$)*32 : FOR xm=l 
TO Z STEP 4:FOR ym=0 TO 16 STEP 2 
1040 IF TEST(xm,ym)=14 THEN fu=0:GOSUB 106 
0 : fu=fa : GOSUB 1060 
1050 NEXT:NEXT:RETURN 

1060 IF fu=0 THEN xu=xf*4:yu=yf*4 ELSE xu= 

0:yu=0 

1070 PLOT x+xm*xf+xu,y+ym*yf+yu,fu:DRAWR x 
f,yf-.DRAWR x.f ,-yf : DRAWR -xf ,-yf : DRAWR -xf , 
yf:RETURN 
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Service 


Service 

Wie immer an dieser Stelle einige Tips zu Ihrem Rechner und allem 
Drumherum. 


Eine ansehnliche Zahl unserer Leser ist 
schon Besitzer eines Rechners aus der 
CPC-plus-Reihe. Aber oh Schreck, wer¬ 
den einige von denen sagen, meine Hard¬ 
ware-Erweiterungen funktionieren gar 
nicht mehr, was habe ich mir da bloß zu¬ 
gelegt. Diese Benutzer wollen wir beru¬ 
higen. Der ganze Ärger kommt nämlich 
nur durch eine veränderte Belegung der 
Steckverbinder an der Rückseite der Ge¬ 
räte. Das Geheimnis, warum das gemacht 
wurde, wird AMSTRAD wohl nie verra¬ 
ten. Betroffen sind davon der Expansion¬ 
sport und der Verbinder für den An¬ 
schluß eines zweiten Floppy-Laufwerks 
an den CPC 6128 plus. Hingegen ist die 
Belegung des Druckerports, welch ein 
Wunder, noch die alte geblieben. Hat 
man nun einen solchen neuen Rechner, 
aber noch alte Hardware-Erweiterungen, 
so kann man sich im Prinzip bereits 
durch den Bau von Adaptern selbst behel¬ 
fen. Aber auch einige Händler bieten sol¬ 
che Adapterkabel bereits an. 

Verbindung durch Adapter 

Zu jedem der neuen CPC plus wird ein 
Handbuch mitgeliefert, in dem die Pin¬ 
belegung der Steckverbinder dokumen¬ 
tiert wird. Da nicht jeder auch gleich die 
Anschlußbelegung der alten CPC-Typen 
bei der Hand hat, haben wir diese hier 
abgedruckt. Die Pinbelegung des 
Druckerports ist der Vollständigkeit hal¬ 
ber ebenfalls mit angegeben. Der Steck¬ 
verbinder entspricht dem des Anschlus¬ 
ses für das Zweitlaufwerk. 


Beim Selbstbau eines Adapters sollte man 
sehr sorgfältig Vorgehen. Durch fehlge¬ 
legte Leitungen kann der CPC sehr 
schnell empfindlich beschädigt werden, 
so daß zur dann nötigen Reparatur meist 
etwas tiefer in die Tasche gegriffen wer¬ 
den muß. Deshalb beim Test des gerade 
gebauten Adapters sehr wachsam sein 
und beim ersten Anzeichen einer seltsa¬ 
men Reaktion des CPCs das Gerät sofort 
ausschalten. Meistens äußert sich eine 
falsch angeschlossene Leitung am Ex¬ 
pansionsport dadurch, daß nach dem 
Ein schalten erst gar kein oder ein bunt¬ 
gemustertes Bild erscheint. Hier sollte 
dann der bereits erwähnte Griff zum 
Netzschalter schnellstens durchgeführt 
werden. Ein Fehler beim Anschluß des 
Adapters für ein Zweitlaufwerk äußert 
sich größtenteils durch ständig laufende 
Laufwerksmoto- 
ren. Oft wird sogar 
der Zugriff auf das 
Erstlaufwerk ver¬ 
weigert. Auch hier 
bitte nicht zögern, 

Computer und 
Zweitlaufwerk so¬ 
fort auszuschalten. 

Softwaremäßig gibt 
es ja beim CPC 
plus auch einige 
Probleme. Aber 
hierfür, so wird ge- 
munkelt, soll es 
auch bald eine Lö¬ 
sung geben. 


Pin 1-19 GND 

Pin 20 NC 

Pin 2J 

NC 

Pin 22 NC 

Pin 23 

/INDEX 

Pin 24 NC 

Pin 25 

/DRIVE 1 

Pin26 NC 


SELECT 


Pin 27 

/MOTOR ON 

Pin 28 /DIRECTION 



SELECT 

Pin 29 

/STEP 

Pin 30 /WRITE DATA 

Pin 31 

/WRITE CATEPin 32 /TRACK 0 

Pin 33 

/WRITE PRO- 

Pin 34 /READ DATA 


TECT 


Pin 35 

/SIDEISE- 

Pin 36 /READY 


LECT 


Die Pinnbelegung des Anschlusses für eine - 

wei- 

te Diskettenstation 


Pin I 

lSTROBE 

Pin 19 GND 


Pin 2 

DO 

Pin 20 GND 


Pin 3 

Dl 

Pin 21 GND 


Pin 4 

D2 

Pin 22 GND 


Pin 5 

D3 

Pin 23 GND 


Pin 6 

D4 

Pin 24 GND 


Pin 7 

D5 

Pin 25 GND 


Pin 8 

D6 

Pin 26 GND 


Pin 9 

GND 

Pin 27 GND 


Pin II 

Bö SY 

Pin 28 GND 


Pin 14 

GND 

Pin 33 GND 


Pin 16 

GND 




Alle nicht angegebenen Pins sind nicht be¬ 
legt 


Die Belegung des Druckerports 


Pin 1 SOUND 

Pin 18 /INT 

Pin 35 D6 

Pin 2 A 15 

Pin 19 /BUSRQ 

Pin 36 D4 

Pin 3 A 13 

Pin 20 READY 

Pin 37 D2 

Pin 4 A 11 

Pin 21 iRESET 

Pin 38 DO 

Pin 5 A 9 

Pin 22 ROMD1S 

Pin 39 /MREQ 

Pin 6 A 7 

Pin 23 RAM DIS 

Pin 40 /RERSH 

Pin 7 A 5 

Pin 24 LPEN 

Pin 41 !RD 

Pin 8 A 3 

Pin 25 GND 

Pin 42 /HALT 

Pin 9 A 1 

Pin 26 GND 

Pin 43 /NMI 

Pin 10 D7 

Pin 27 A 14 

Pin 44 /BUSAK 

Pin 11 D5 

Pin 28 A 12 

Pin 45 /BUSRESET 

Pin 12 D3 

Pin 29 A 10 

Pin 46 /ROMEN 

Pin 13 Dl 

Pin 30 A 8 

Pin 47 /RAMRD 

Pin 14 +5 V 

Pin 31 A 6 

Pin 48 CURSOR 

Pin 15 /Ml 

Pin 32 A4 

Pin 49 /EXP 

Pin 16 /IORQ 

Pin 33 A 2 

Pin 50 TAKT 

Pin 17 iWR 

Pin 34 A0 



jg Die Pinnbelegung des Expansionsports 



Bild I: Der Steckverbinder für den Expansionsbus des CPC 6128 


18 1 



Bild 2: Der Steckverbinder für den Anschluß eines zweiten Laufwerks 
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Know-how 


Ja und Nein 

Startschuß zum neuen Assembler-Kurs! 

Maschinensprache, optimaler Code oder auch Z-80-Mnemonics: viele Be¬ 
griffe ums gleiche Thema. “Assembler“ - ein Mysterium, das auch auch 
aus dem langsamsten Prozessor noch das Optimum herausholt. Langjährige 
Leser werden sich noch positiv an Matthias Uphoffs “Assemblerecke“ erin¬ 
nern, die in unserem lieft his Mitte 1990 regelmäßig vertreten war. Wir mei¬ 
nen, es ist an der Zeit, der Rakete “Assembler“ neue Höhenflüge zu spendie¬ 
ren. Darum starten wir jetzt mit einem taufrischen neuen Autoren unseren 
CPC-Assemblerkurs: Ulrich Schmitz, der übrigens in der “toolbox“ die PC- 
Assemblerecke gemanagt hat, führt Sie Schritt für Schritt an die Arbeit mit 


dem Assembler heran. 

Kaum ein Rechner bietet sich so gut für 
die Assemblerprogrammierung an an 
wie der CPC mit seinem 
Z-80-Prozessor. Auch wer später ein¬ 
mal auf einen PC umsteigen will, 
braucht dann in Sachen Assembler kei¬ 
nesfalls ganz neu zu lernen, denn die 
Struktur der Intel-8086-CPU ist der 
von Zilogs Z-80 sehr ähnlich. Kein 
Wunder, Ist doch der Z-80 seinerseits 
ein “verbesserter Clone“ des alten In- 
tel-8080, von dem auch die PC-Prozes- 
soren letztendlich abstammen. 

Die meisten Assemblerprogramme, die 
cs für CP/M-Rechner auf Z-80-ßasis 
gibt, verwenden übrigens ohnehin nur 
die Befehle des lnlel-8080. Der Z-80 
versteht diese Befehle. (Natürlich - 
sonst würden die Programme ja bei ihm 
nicht laufen.) Allerdings kann er “ei¬ 
gentlich" noch mehr. Im Klartext: Es 
gibt auch noch Z-80-spezifische Befeh¬ 
le. Diese “eigenen Sonderbefehle“ von 
Zilogs Arbeitspferdchen führen bei den 
Assemblerprogrammierern weithin ein 
Schattendasein. Sie lassen sich darüber 
hinaus auch nicht mit jedem Assembler 
für den CPC anwenden. Sie sollten 
aber zumindest schon einmal wissen, 
daß die Welt für den CPCler beim übli¬ 
chen 8080-Code noch nicht aufhört. In 
späteren Folgen des Assemblerkurses 
erfahren Sie dann noch mehr über die 
weithin unentdeckte Welt der 
Z-80-Befehle. 

So, jetzt genug der Vorrede - steigen 
Sie ein in den absolut schnellsten Zug, 
den Ihr CPC zu bieten hat. ln diesem 
ersten Teil des Assembler-Kurses wol¬ 
len wir ganz allgemein die Treppen zu 
den Maschinen-Räumen hinunterstei¬ 
gen. Auch wenn wir später ganz gezielt 
die prozessorspezifischen Anweisun¬ 
gen betrachten, gibt es doch einige 
grundlegende Dinge wie etwa das Zah¬ 
lensystem, Register und Flags im allge¬ 


meinen, die unter jedem beliebigen 
Prozessor und dem entsprechenden As¬ 
sembler gleich sind. Jeder Teil unseres 
Assembler-Kurses behandelt ein in sich 
abgeschlossenes Gebiet. So müssen Sie 
nicht unbedingt den jeweils letzten Teil 
gelesen haben, um den aktuellen Arti¬ 
kel zu verstehen. 

Begr if f sverw i r r u ng 

Vielleicht ist Ihnen die Mehrdeutigkeit 
des Begriffes “Assembler“ schon ein¬ 
mal aufgefallen? Zum einen nennt man 
so das Übersetzerprogramm, das aus 
den Kürzeln der einzelnen Prozessoran¬ 
weisungen (den “Mnemonics“) ablauf¬ 
fähige Programme erzeugt. 

Zum anderen bezeichnet man die Pro¬ 
grammiersprache. also die prozessor- 
spezifischen Operationscodes, kurz 
Opcode genannt, auch als Assembler. 
Diese Opcodes werden vom Assembler 
in die dem Prozessor direkt verständli¬ 
che Sprache aus Nullen und Einsen, 
also in Maschinensprache, umgewan- 
delt. Man sagt, der Code wird assem- 
bliert. 

Der praktische Nährwert 

Bevor .Sie die ersten Schweißtropfen 
vergießen oder angesichts der bevorste¬ 
henden Anstrengung vorschnell weiter- 
blättern. wollen wir schnell klarstellen: 

Assembler ist die einfachste aller Pro¬ 
grammiersprachen. 

Noch dazu profitiert man in jeder 
Hochsprache (BASIC, Pascal, beson¬ 


Binäre Zahlendarstellung 


Zweierpotenz: 2 7 2 6 2 5 2 A 2 3 2 2 2 1 2° 
Dezimaler Wert: 128 64 32 16 8 4 2 1 


ders C) von dem Wissen um die Regi¬ 
ster. Bits. Bytes und internen Vorgänge 
im Rechner, welches das Arbeiten mit 
dem Assembler mit sich bringt. Wer 
also noch keine Programmiersprache 
auf der Fremdsprachenliste stehen hat, 
dem sei Assembler wärmstens empfoh¬ 
len. Und wer schon das CPC-BASIC 
beherrscht, der sollte sowieso Maschi¬ 
nensprache lernen. 

Das CPC-System erlaubt es über soge¬ 
nannte RSX-Befehle sehr einfach, klei¬ 
ne Maschinenroutinen ins System ein¬ 
zubinden und über den BASIC-Inter¬ 
preter bequem aufzurufen. Im nächsten 
Teil des Assembler-Kurses werden wir 
auch schon einige Beispiele zur RSX- 
Programmierung bringen. 

Obwohl Assembler wirklich eine sehr 
einfache Sprache ist, müssen einige 
grundlegende Dinge angesprochen 
werden, bevor man sich daran w'agen 
kann, das erste RSX-Programm auf die 
Reise zu schicken. 

Olympiareif 

Das Problem des Assemblerneulings, 
der bereits von einer höheren Program¬ 
miersprache “herkommt“, liegt meist 
nicht im vokabelmäßigen Einpauken 
von Maschinensprache-Befehlen. Er 
tut sich vielmehr schwer damit, seine 
menschlich-logische Denkweise mit ih¬ 
ren vielen Selbstverständlichkeiten der 
byteweisen Schritt-für-Schritt-Logik 
der Maschine anzupassen, für die gar 
nichts selbstverständlich ist. Wer völlig 
unbeleckt von einer Programmierspra¬ 
che ist. w'ird sich sogar leichter mit der 
für den Assembler-Programmierer ty¬ 
pischen Denkweise anfreunden. Ma¬ 
schinensprache gibt dem Programmie¬ 
rer alle Möglichkeiten des Betriebssy¬ 
stems, und damit auch alle Pflichten. 
Man muß im Kleinen denken und sich 
die Automatismen der Hochsprache ab- 
gewöhnen. Bekommt man in BASIC 
mit einem 

PRINT “HALLO, WIE SIEHST DU DENN AUS?“ 

schon einen Text auf den Bildschirm 
ausgegeben, so muß man dafür in As¬ 
sembler etwas mehr tun. Im einfach¬ 
sten Fall bedient man sich direkt der 
Betriebssystem-Funktion zur String¬ 
ausgabe. Diesen Weg geht intern auch 
der BASIC-Interpreter. Man könnte in 
Assembler natürlich die Betriebssy¬ 
stemroutine umgehen und in puncto 
Bildschirmansteuerung selbst bei 
Adam und Eva beginnen. Dadurch lie¬ 
ße sich vielleicht noch ein bißchen 
mehr Tempo gewinnen, wenn auch die 
entsprechende Zeitersparnis niemanden 
hinter dem Ofen hervorlocken dürfte. 
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Im schwierigsten Fall schreibt man 
sich ein kleines Programm zur Tex¬ 
tausgabe. Dieses Programm läßt sich 
bei den meisten Assemblern dann als 
“Makro“ definieren und fortan wie ein 
Hochsprachenbefehl einsetzen. Der 
besondere Reiz solcher Programme 
liegt natürlich darin, gegenüber der 
hausbackenen Betriebssystem-Funk¬ 
tion mit der eigenen Routine wertvolle 
Millisekunden schneller zu sein. Eine 
Olympiade der ganz besonderen Art. 

Probleme beim Einstieg 

Fangen wir also mit den ersten neuen 
Begriffen an. 

Ist es Ihnen schon einmal passiert, daß 
Sie beide Hände voll hatten und trotz¬ 
dem noch etwas aufnehmen wollten? 
Was ist passiert? Richtig. Sie haben 
eine Hand freigemacht und ein Teil 
weggelegt. 

Genauso funktioniert das Programmie¬ 
ren in Maschinensprache. 

Um Werte, also Zahlen, wegzulegen, 
gibt es verschiedene Schubladen, die 
sogenannten Register. Um nun die 
Wirkungsweise einzelner Befehle auf 
die Register verstehen zu können, müs¬ 
sen Sie sich in diesem ersten Teil des 
Kurses mit etwas Binär-und Hexadezi- 
mal-Arithmetik herumschlagen. 

Im Grunde genommen ist es gar nicht 
so schwer. So wie unser Dezimalsy¬ 
stem auf der Zahl 10 beruht, baut das 
Dual- oder Binärsystem auf der 2 und 
das hexadezimale System auf der 16 
auf. Den Grundbaustein jedes Zahlen¬ 
systems bezeichnet man dabei als 
Basis. 


Stelle 

4 


3 


2 


1 



HEX 

DEZ 

HEX 

DEZ 

HEX 

DEZ 

HEX 

DEZ 


0 

0 

0 

0 

0 

0 

0 

0 


1 

4096 

1 

256 

1 

16 

1 

t 


2 

8192 

2 

512 

2 

32 

2 

2 


3 

12288 

3 

768 

3 

48 

3 

3 


<1 

16384 

4 

1024 

4 

64 

4 

4 


5 

20480 

5 

1280 

5 

80 

5 

5 


6 

24576 

6 

1536 

6 

96 

6 

6 


7 

28672 

7 

1792 

7 

112 

7 

7 


8 

32768 

8 

2048 

8 

128 

8 

8 


9 

36864 

9 

2304 

9 

144 

9 

9 


A 

40960 

A 

2560 

A 

160 

A 

10 


B 

45056 

B 

2816 

B 

176 

B 

11 


C 

49152 

C 

3072 

C 

192 

C 

12 


D 

53248 

D 

3328 

D 

208 

D 

13 


E 

57344 

E 

3584 

E 

224 

E 

14 


F 

61440 

F 

3840 

F 

240 

F 

15 


Umwandeln von Hexadezimalzahlen in Dezimal¬ 
zahlen ohne Vorzeichen 


Auch hier gilt wieder die Assembler- 
Regel. alles auf die kleinste Größe zu¬ 
rückzuführen. Die Dezimalzahl 5 wür¬ 
de sich wie folgt als Binärzahl zerlegen 
lassen: 

1 mal 2° plus 1 mal 2 : ergeben dezimal 
5. 

Die Stellen der Zweierpotenzen neh¬ 
men dabei von rechts nach links zu. 
Der Einfachheit halber setzen wir erst 
einmal jede Stelle der Zweierpotenzen 
mit einem Bit gleich. 

Eine achtstellige Binärzahl hätte also 
an ihrer linken Seite die höchste Wer¬ 
tigkeit mit dezimal 128. Daraus ergibt 
sich auch schnell die größte mit 8 Bit 
darstellbare Zahl, nämlich dezimal 
255. Eine weitere Sache, die man ein¬ 
fach hinnehmen muß, ist die Definition 
eines Bytes. Um nicht ständig mit ein¬ 
zelnen Bits hantieren zu müssen, haben 
bequeme Leute das Byte als eine Reihe 
von 8 Bits definiert. 

Irgendwann kamen dann die ersten 
16-Bit-CPUs auf den Markt, und man 
definierte weiter das sogenannte Wort. 
Beim CPC besteht ein Wort aus 2 Byte. 
Der Begriff des Wortes ist jedoch von 
der individuellen Operationsbreite des 
Prozessors abhängig. Bei 32-Bil-CPUs 
ist ein Wort daher 32 und nicht 16 Bit 
groß. Um 16 Bit darzustellen, hilft man 
sich dann beim 32-Bit-Wort mit dem 
neuen Begriff des Halbwortes. 

In unserem Fall der Z-80-CPU ist ein 
Wort wie gesagt mit 2 Byte definiert. 
Wem es Spaß macht, der kann neben 
Worten und Bytes außerdem je 4 Bit zu 
einem Nibble (Halbbyte) zusammen¬ 
fassen. 

Rechnen mit Binärzahlen 

Doch kommen wir zurück zu den Bi¬ 
närzahlen. Bei der Assemblerprogram¬ 
mierung gibt es im Gegensatz zu den 
Hochsprachen nur einige wenige Grun- 
delemcntc. an denen sich alle weiteren 
Befehle und Mechanismen orientieren. 
Neben den schon erwähnten Registern 
sind das die sogenannten Flags. Der 
Begriff “Flag“ im Sinne von “Signal“ 
trifft den Nagel ziemlich auf den Kopf. 
Nach einer bestimmten Aktion, bei¬ 
spielsweise einer Subtraktion, wird ein 
bestimmtes Flag gesetzt. Gleich einer 
Signalfahne ist dieses dann anschlie¬ 
ßend Richtungsweiser für andere Be¬ 
fehle, wie etwa einen bedingten 
Sprungbefehl. Flags, Register und eine 
Handvoll wichtiger sowie einige exoti¬ 
sche Befehle, die auch Profis nur von 
Zeit zu Zeit aus einer Liste entnehmen 
— das ist Assembler. 


Die Crux besteht darin, den entspre¬ 
chenden Rechner und das Betriebssy¬ 
stem zu kennen. Assembler selbst ist, 
wie schon gesagt, kinderleicht zu erler¬ 
nen. Die verborgenen Winkel eines Be¬ 
triebssystems auszuleuchten, dürfte 
das eigentliche Problem bei der Pro¬ 
grammierung darstellen. Doch mit 
dem Essen kommt ja bekanntlich der 
Appetit. 

Hexadezimalsystem 

Nachdem Sie das Binärsystem kennen¬ 
gelernt haben, wollen wir nun auch ei¬ 
nen Blick auf das hexadezimale Zah¬ 
lensystem werfen. Es erscheint auf den 
ersten Blick reichlich überflüssig. 
Wenn man jedoch weiß, daß sich jedes 
Byte in seinem Inhalt (0 bis 255) durch 
eine zweistellige Hexadezimalzahl aus- 
drücken läßt, versteht man auch, wa¬ 
rum bei allen Byte-bezogenen Aktio¬ 
nen und Anwendungen hexadezimal 
gerechnet wird. Eine Hexadezimalzif¬ 
fer entspricht dann...? — Richtig, dem 
vorhin ganz kurz genannten “Nibble“. 
Beim Dezimalsystem stehen uns ja be¬ 
kanntlich die Ziffern 0 bis 9 für die 
Zahlendarstellung zur Verfügung. Um 
nun einen Wertebereich von 0 bis 15 in 
einer Ziffer darstellen zu können, 
greift man zu einem kleinen Trick. 
Man bedient sich des Alphabets, und 
zwar der ersten sechs Buchstaben. Für 
eine dezimale 10 steht also das A, für 
eine 11 das B usw. 

Kleine Übung: Was ist demnach die 
Hexadezimalzahl 1A (kurz 1 Ah), dezi¬ 
mal ausgedrückt? — Richtig: 1 mal 16 
plus (A= 10) mal 1, macht zusammen 
26. Das Byte mit dem Inhalt 1A hätte 
somit den Wert 26 und dementspre¬ 
chend folgendes Bitmuster: 

00011010 

Die einfache Addition läßt sich in allen 
Zahlensystemen in gleicher Weise 
durchführen: 

Hex. Dezimal 3inär 

0A 10 00001010 

+ 01_03_00000011 

0D 13 00001101 

Problematischer wird es erst, wenn 
man mit der Summe einer Addition 
über den darstellbaren Zahlenbereich 
hinausschießt: 

Binär 

11111111 

+ 00000001 


11111110 

Das ist natürlich arithmetisch falsch (es 
müßte eigentlich 100000000 heißen), 
kommt aber trotzdem bei der Verknüp- 
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f'ung der beiden oben gezeigten Bytes 
heraus - sofern auch das Ergebnis in 
ein einziges Byte hineingezwungen 
wird. In unserem Beispiel würde also 
die binäre Addition der zwei Bytewerte 
255 und 1 dezimal 254 ergeben. Tat¬ 
sächlich bekommt man dieses Ergebnis 
in den Registern bei einer derartigen 
Addition angezeigt. 

Daß bei dieser Operation etwas in die 
Programmierer-Hose ging, wird einem 
glücklicherweise durch eines jener 
hilfreichen Fähnchen, der Flags, ange¬ 
zeigt. Das sogenannte Carry-Flag ist 
sicher das am häufigsten verwendete, 
und auch hier meldet es sofort den Feh¬ 
ler. Da die Addition von Zahlen, die 
größer als 255 sind, nicht gerade selten 
auftritt, ist man gezwungen, einen an¬ 
deren Weg zu gehen. 

Man zerlegt die Werte einfach in zwei 
Bytes und spricht dann vom sogenann¬ 
ten niederwertigen oder Low-Byte und 
höherwertigen oder High-Byte. Also 
noch ein Versuch mit dem oben ange¬ 
sprochenen Beispiel. Wieder gilt es, 
255 plus 1 zu berechnen, aber diesmal 
haben wir für das Ergebnis eine 
2-Byte-Zahl zur Verfügung: 

High-Eyte Low-Byte 

00000000 11111111 

+ 00000000 00000001 


00000001 00000000 

Beim Auslesen von Werten aus direk¬ 
ten Adressen über BASIC-PEEK ist Ih¬ 
nen vielleicht schon einmal aufgefal¬ 
len, daß bestimmte Werte mit 256 mul¬ 
tipliziert werden. Durch diese Multi¬ 
plikation w ird nichts anderes gemacht, 
als das High-Byte eines Zwei- 
Byte-Wertes in den entsprechenden 
Dezimalanteil umzusetzen. Auf gut 
BASIC heißt das: 

Wert = (256 * PEEK(:-:iAdresse)) + 
(PEEK(Lo.Adresse)) 

Um nun einen Wert, der größer als 255 
(und kleiner als 65536) ist. in den Spei¬ 
cher POKEn zu können, muß man auch 
in BASIC mit High- und Low-Byte jong¬ 
lieren. Man zerlegt den Wert und setzt 
dann die beiden Bytes einzeln: 

POKE HiAdresse, INT(Wert/256) 

P0KE LoAdresse, Wert- 
((INT(Wert/256))*256) 

Wie Sie sehen, ergibt sich der Inhalt 
des Low-Bytes aus dem Divisionsrest. 
Wenn man nicht gerade in BASIC pro¬ 
grammiert, sondern Assembler in 
Reinkultur frönt, braucht man sich um 
dererlei dezimale Denkakrobatik nicht 
zu kümmern. Im hexadezimalen Zah¬ 
lensystem läßt sich immer ein Byte mit 
zwei Ziffern darstellen. Wenn wir es 
also mit einem 16-Bit-Wort (4 Hexade¬ 


zimal/) ffern) zu tun haben, stehen die 
ersten beiden Ziffern für das höherwer¬ 
tige und die beiden letzten entspre¬ 
chend für das niederwertige Byte. 

Komplimente gefallen 

Kommen wir nun zur letzten großen 
Hürde auf dem Weg in die Assembler- 
Gefilde. Wie Sie bereits wissen, arbei¬ 
tet der Rechner intern nur mit “Ja“ 
oder “Nein“, “ 1 “ oder “0“. Dieses fast 
als biblisch zu bezeichnende "Heiß 
oder kalt “-Prinzip hat jedoch einen 
großen Haken. Neben “vielen“ und 
“wenigen“ Äpfeln gibt es in der Natur 
auch die fehlende Menge, die negati¬ 
ven Zahlen. Manche Programmier¬ 
sprache wie etwa C gibt dem Program¬ 
mierer die Möglichkeit, bewußt auf die 
Darstellung negativer Zahlen zu ver¬ 
zichten (Datentyp unsigned) und damit 
den vollen Wertebereich zur Zahlen¬ 
darstellung ausnutzen zu können. Was 
passiert aber, wenn wir negative Zah¬ 
len darstellen wollen? 

Es hilft alles nichts, von unserer ohne¬ 
hin schon schwachbrüstigen 8-Bit-Dar- 
stellung müssen wir ein Bit zur Vorzci- 
chenkennung opfern, und zwar das 
höchstwertige Bit 7 (bei einem Bereich 
von Bit 0 bis 7). Ist Bit 7 gesetzt, also 1, 
haben wir es mit einer vorzeichenbe¬ 
hafteten Zahl (positiv oder negativ) zu 
tun. Bei negativen Zahlen bedient man 
sich zusätzlich des sogenannten 2-er- 
Komplements, um die interne Darstel¬ 
lung festzulegen. 

Das Komplementieren einer Binärzahl 
bedeutet nichts weiter als das Vertau¬ 
schen von Null und Eins. Bei der Bil¬ 
dung des 2-er-Komplements wird dann 
zu dieser Vertauschung noch eine Eins 
dazuaddiert. Das muß man wieder ein¬ 
fach hinnehmen, aber mit etwas Übung 
geht es auch logisch in Fleisch und Blut 
über. Als Beispiel wollen wir einmal -1 
intern darstellen: 

Dez. Binär 

+ 1 : 00000001 

Jetzt das Komplement bilden: 

lllllUO 

Eins dazuaddieren: 

11111110 

+ 00000001 


11111111 


Intern würde -I also als dezimal 255, 
hexadezimal als FF dargestellt werden. 

Ein weiteres Beispiel: -98 

Dez. Binär 

+ 98: 01100010 

Jetzt das Komplement bilden: 

10011101 

Eins dazuaddieren: 

10011101 

+ 00000001 


Intern: 10011110 

Solche Rechenakrobatik muß man 
nicht allzuoft machen. Wenn man eige¬ 
ne Programme debuggt, darf man al¬ 
lerdings bei der Darstellung von nega¬ 
tiven Zahlenwerten in Registern nicht 
in endloses Grübeln verfallen, sondern 
muß den Mechanismus zur Darstellung 
kennen. 

Bei Schleifendurchläufen mit einem 
dekrementierenden (abzichenden) 
Zähler führt diese Darstellung bei¬ 
spielsweise dazu, daß nach der Null 
keinesfalls ein negativer Wert folgt, 
sondern das Karussell wieder beim Re¬ 
gisterwert 255 (also “-1 “) von vorn be¬ 
ginnt. 

So geht’s weiter 

Im nächsten Teil des Assembler-Kur¬ 
ses werden wir uns mit der Verwen¬ 
dung von Registern und Flags beschäf¬ 
tigen. Um die entsprechenden Beispiel¬ 
programme assemblieren zu können, 
empfehlen wir den in der letzten CPC 
International (Heft 8/9"91, Seite 30-37) 
vorgestellten, verbesserten CPC-Ma- 
kroassembler. 

Denken Sie dann allerdings beim Tip¬ 
pen daran, daß dieser Assembler vor 
jeder Zeile eine Zeilennummer haben 
möchte. Natürlich lassen sich die Pro¬ 
gramme auch mit jedem anderen As¬ 
sembler übersetzen, da wir auf speziel¬ 
le Makrobefehle vorerst verzichten 
werden. 

Außerdem zeigen wir Ihnen, wie sich 
Assembler-Programme leicht unter 
BASIC als sogenannter RSX-Befehl 
implementieren lassen. Bis dahin - 
gut Byte und auf Wiedersehen! 

(Ulrich Schmitz/sz) 


Hexadezimal: 

80 

81 

FE 

FF 

00 

01 

02 

7E 

7F 

Dezimal: 

-128 

-127 ... 

-2 

-1 

0 

1 

2 

126 

127 


Die Zahlengerade aller darstellbaren 8-Bit-Zahlen mit Vorzeicheninterpretation 
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Programmierte 

Traumwelten 

Der Weg zum eigenen Rollen 
spiel-System 


Man muß kein Fan von Douglas Adams oder Isaac Asi- 
mov sein, um jenes Gefühl zu kennen, das den Reiz mo¬ 
derner wie auch klassischer Märchen ausmacht: einmal 
abtauchen in eine fremde Welt, im Team oder allein, und 
die letzten großen Abenteuer erleben. Eine sehr beliebte 
Methode, Märchen “hautnah“ zu erleben, sind Rollen¬ 
spiele. Bei den computerlosen, würfelorientierten Syste¬ 
men wie etwa “Hero’s Quest“ oder “das schwarze Auge“ 
ist es noch relativ einfach, eigene Stories mit ins Spiel zu 
bringen. Als CPC-gestützter Rollenspieler greift man da¬ 
gegen normalerweise auf Fertigfutter zurück. Dabei ist 
es schon in BASIC möglich, der Phantasie mit selbstge¬ 
stalteten Rollenspielen Flügel zu verleihen. Wir zeigen 
Ihnen in diesem Heft und den folgenden, wie Sie eigene 
Abenteuer entwickeln und dann auch schließlich zu Pro¬ 
gramm bringen - Schritt für Schritt. 



Längst nicht mehr neu, erleben Fanta¬ 
sy-Rollenspiele zur Zeit wieder eine 
heftige Renaissance. Prinzessinnen ret¬ 
ten. nach Schätzen suchen, gegen Ko¬ 
bolde und Trolle kämpfen — solche 
Abenteuer im Reich der Phantasie ma¬ 
chen, wenn man sie in der Gruppe er¬ 
lebt, manches zunächst öde Wochenen¬ 
de zu einer aufregenden Herausforde¬ 
rung für Kombinationskraft, Team¬ 
geist, Humor und Nervenstarke. 

Längst kennt man Computer-Versionen 
der ursprünglich mit Papier und Würfel 
gespielten Gruppenabenteuer. Diese 
Programme haben den Vor-oder auch 
Nachteil, daß sie das Rollenspielver- 
gniigen auch dem Einzelkämpfer ermög¬ 
lichen — für “Gegner", “Freunde“, Ter¬ 
rain und Aufgaben sorgt der Computer. 
Auf PC, C-64. Amiga und Atari ST 
kommen in schöner Regelmäßigkeit 
neue Perlen dieses Genres an die Ober¬ 
fläche des Softwaremarktes. CPC-User 
müssen sich leider mit wenigen Klassi¬ 
kern wie “The Bard’s Tale“ oder “Dark 
Sceptre“ begnügen. Highlights wie 
“Ultima VI“ oder “Dungeon Master“ 
werden wohl auch in Zukunft nicht auf 
das CPC-System konvertiert. All das 
braucht einen begeisterten Rollenspie¬ 


ler jedoch nicht verzweifeln zu lassen. 
Die besten Rollenspiel-Ideen schlum¬ 
mern wahrscheinlich im eigenen Kopf 
und warten darauf, für eine hungrige 
Fan-Gemeinde umgesetzt zu werden. 
In der Tat kommt bei den meisten neuen 
Rollenspielen der populären 16-Bitter 
mehr Frust als Lust auf. Da wird die 
neunundneunzigste Version einer Dun¬ 
geon-Maste r-Replik aufgelegt und un¬ 
ter reißerischem Namen als das Non¬ 
plusultra für jeden Rollenspieler ver¬ 
kauft. Spätestens im zweiten Level 
merkt man dann, daß trotz grafisch auf¬ 
wendigster Monster keine rechte Ath- 
mosphäre aufkommen will und die Sto¬ 
ry des neuen Software-Hits eigentlich 
auch nicht viel mehr als einen Ab¬ 
klatsch des großen Vorbilds darstellt, ln 
der Tat lassen sich die meisten Compu¬ 
ter-Rollenspiele auf zwei bis drei sol¬ 
cher großer Vorbilder zurückführen. 

Kreativität statt Langeweile 

Der Mangel an guten, neuen Rollen¬ 
spielen gerade im CPC-Bereich sollte 
zusätzlich ermutigen, eigene Wege zu 
gehen. Diese neue Rollcnspicl-Artikcl- 
reihe möchte Sic an der Hand nehmen 


und Ihnen mit Hilfsmitteln, Ideen und 
Tips bei der Gestaltung und Program¬ 
mierung von Rollenspielen behilflich 
sein. Einige der dabei verwendeten und 
vorgestellten Tools werden sich natür¬ 
lich auch für andere Dinge wie Anima¬ 
tion oder Grafikprogrammierung ein- 
setzen lassen. Tn erster Linie wird es 
aber darum gehen, dem interessierten 
Rollenspieler Strukturen zur Verfügung 
zu stellen, um eigene Geschichten auf¬ 
zubauen und auf dem CPC umzu¬ 
setzen. 

Im ersten Teil wollen wir als Beispiel 
ein paar echte Rollenspiel- Klassiker 
vorstellen und uns interessante Elemen¬ 
te daraus für eigene Rollenspiele zunut¬ 
ze machen. Außerdem geht es um die 
Entwicklung einer guten und in sich lo¬ 
gischen Story - nach dem hohen 
Grundsatz des Rollenspiel-Profis: “So¬ 
lange das Drehbuch nicht absolut was¬ 
serdicht steht und die Story nicht jeden 
Leser in sich hineinzieht, wird keine 
Zeile Programmcode geschrieben.“ 

In den nächsten Folgen gibt es aller¬ 
dings auch ordentlich Listing-Futter. Es 
geht dann schließlich um Werkzeuge, 
mit denen sich gute Rollenspiele in Sze¬ 
ne setzen lassen. Hierbei erlauben wir 
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auch der Grafik, mal hereinzuschauen 
- obgleich sie für Rollenspiele eigent¬ 
lich gar nicht unbedingt nötig ist. Scrol¬ 
ling, Landschaften-Editor sowie Sprite- 
Routinen sollen dann Stationen auf dem 
Weg zum fertigen Abenteuer bilden. 

Die Story macht’s 

Der Kernpunkt jedes guten Rollen¬ 
spiels ist, wie schon angedeutet, eine 
fesselnde Story und damit verbunden 
eine für den Betrachter, also Spieler, lo¬ 
gische Umsetzung auf den Computer. 
Die Arbeit an einem guten Rollenspiel 
beginnt also nicht etwa mit der Pro¬ 
grammierung. Wie bei jedem umfang¬ 
reicheren Projekt ist vielmehr eine ge¬ 
naue Planung Voraussetzung für den 
Erfolg. Eine in sich unlogische Hand¬ 
lung wird durch eine noch so gute Ani¬ 
mation nicht wettgemacht. Umgekehrt 
verzeiht man einer brillianten Story 
schon eher eine dürftige Grafik - man 
denke nur an Stuart Smiths ausgezeich¬ 
netes, aber grafisch eher karges "Ad- 
venture Construction Set“. 

Der Spieler muß förmlich den kalten 
Stahl des feindlichen Schwertes im 
Nacken spüren und den süßlichen Ge¬ 
ruch von Verwesung wahrnehmen, 
wenn um die Ecke Mumien und Zom¬ 
bies auf ihn lauern. Der Joystick wird 
dann zum Schwert und aus der Tastatur 
ein lebensrettender Schild. 

Der Bildschirm muß zum Auge des 
Abenteurers und die Handlung zum Le¬ 
bensraum des Rollenspielers werden. 
Erst wenn die Realität hinter der Illu¬ 
sion verschwindet, ist das Ziel erreicht. 
Daher sollte man speziell auf die Ent¬ 
wicklung einer guten Story sehr viel 
Zeit und Sorgfalt verwenden. 

Sehen wir uns doch einmal die großen 
Vorbilder der Rollenspiel-Szcne an. 
Die Ultima-Folgen waren bis Ultima V 


allesamt mit einer recht dürftigen Gra¬ 
fik ausgestattet, aber die Story war 
überwältigend. 

Erfolg kopieren 

Wenn man in einer Stadt einem 
Schmied seinen Laden ausgeräumt hat¬ 
te, konnte man sicher sein, bei einem 
erneuten Besuch dort nicht als guter 
Freund empfangen zu werden. Hatte 
man unvorsichtigerweise einem ent¬ 
scheidenden Geheimnisträger das Le¬ 
benslicht vorzeitig ausgcblasen, so war 
Ultima immer noch auf einem zweiten 
Weg lösbar. Es ist guter Stil, dem Spie¬ 
ler möglichst viel Handlungsfreiraum 
einzuräumen und zumindest nicht nur 
einen gangbaren Weg zur Lösung anzu¬ 
bieten. Rollenspiele, bei denen Realität 
und Spielwelt auseinanderklaffen, ver¬ 
lieren schnell Ihren Reiz. 

Bei der Entwicklung eines Rollenspiels 
auf dem CPC sollte man sich darüber 
im Klaren sein, daß aufwendige Welten 
mit vielleicht sogar mehreren Städten 
schnell die Kapazität des Rechners 
sprengen oder aber an der programm- 
technischen Ausführung scheitern wer¬ 
den. Auch der geheimnisvolle “Ulti- 
ma“-Schöpfer “Lord British“ hat mal 
klein angefangen. 

Lieber eine überschaubare, interessan¬ 
te Mini weit mit einer guten, logischen 
Handlung als eine unvollendete Galaxie 
ohne jede Realitätsbindung. Es muß 
wirklich nicht gleich das Reich Britan- 
nia oder der versunkene Kontinent At¬ 
lantis sein, in dem der unerfahrene Rol¬ 
lenspiel-Programmierer seine ersten 
Helden aussetzt. 

Oftmals genügen ein einfaches Keller¬ 
gewölbe, ein Garten oder sogar ein ein¬ 
zelner Raum als Spielfeld. 

Der Phantasie sind hier keine Grenzen 
gesetzt, und vielleicht läßt sich auf die¬ 


se Art und Weise ja auch eine ganz neue 
Form der Kommunikation mit Freun¬ 
din, Freund oder Familie in Gang brin¬ 
gen? Was würde Ihr Partner beispiels¬ 
weise dazu sagen, wenn Sie die ewig 
unaufgeräumte Rumpelkammer zum 
Zentrum der Spielidee machen wdirden 
und jeden Ordnungsversuch mit einem 
tiefen Fall in von Monstern verseuchte 
Gewölbe quittierten? 

Ob nun Kellerraum oder Kontinent, 
alle im Spiel vorkommenden Personen 
sollten von Ihnen detailliert auf einem 
Blatt Papier fixiert werden. 

Details bringen Leben in die 
Sache 

Lassen sie uns also beginnen: Zu An¬ 
tang skizzieren Sie grob die Ihnen vor¬ 
schwebende Geschichte. 

Scheuen Sie nicht davor zurück, Skiz¬ 
zen und Notizen zu jedem einzelnen 
Gegenstand der Geschichte zu machen. 
Spielt sich das Abenteuer in mehreren 
Räumen oder Gegenden ab, kommen 
Sie ohnehin nicht um eine exakte karto¬ 
graphische Erfassung herum. 

Als nächstes sollten Sie die in der Ge¬ 
schichte vorkommenden Spieler skiz¬ 
zieren. Geben Sie ihnen Namen — 
oder, wenn es sich um potentielle Geg¬ 
ner handelt, verleihen Sie entsprechen¬ 
den Gruppen Eigenschaften und statten 
Sie sie mit den dafür typischen Waffen 
aus. Um die spätere Umsetzung auf den 
Rechner zu vereinfachen, sollten Sie 
bereits jetzt Figuren und Inventar Ihrer 
Geschichte klassifizierbar machen und 
die gewünschten Eigenschaften so gestal¬ 
ten, daß sie sich als Zahlenwerte irgend¬ 
eines Kriteriums ausdrücken lassen. 
Anleihen zu der Gestaltung und Ausrü¬ 
stung von Helden kann man sich übri¬ 
gens hervorragend bei Beglcitheften zu 
Brett-Rollenspielen oder den einzeln 
erhältlichen Story-Heften holen. Auch 
hat schon manchen Rollenspiel-Autor 
die greifbare Nähe eines Orks oder El¬ 
fen in seiner Geschichte beflügelt. Der¬ 
artiges Zubehör gibt es in Form kleiner 
Statuetten zu erschwinglichen Preisen 
in speziellen Rollenspiel-Läden oder 
auch im Spiel waren-Handel. Es muß ja 
nicht immer die handbemalte, in Zinn 
gegossene Version eines Helden sein, 
die der Phantasie auf die Sprünge hilft. 
Die Gummifigurcn-Reihe "Monsters in 
my Pocket“ etwa, die es bereits in bes¬ 
ser sortierten Supermärkten gibt, bietet 
reiche Anregungen für die Gestaltung 
eigener Monster-Charaktere im Rollen¬ 
spiel. 

Wem nun immer noch nicht die zün¬ 
dende Idee für eine Handlung kommt. 



So könnte ein erster grober Lageplan für ein eigenes Rollenspiel nussehen 
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Die Figuren des Rollen¬ 
spiels bekommen durch 
Kategorien wie "Weis¬ 
heit “ oder " Körper¬ 
kraft '' m/k/ eine reiche 
Palette unterschiedlicher 
Ausrüstungsgegenstände 
individuelle Züge. Aus- 
gefeilte Bewertungstnu- 
ster für die auftretenden 
Spielsituationen machen 
das Spiel möglichst 
"realistisch “ und da¬ 
durch reizvoll. Die “Sta¬ 
tusanzeige" ist ein wich¬ 
tiges Spielelement -sie 
infonniert den Spieler 
über den Zustand seiner 
Figur (Itier am Beispiel 
des CPC-Programms 
"Dark Sceptre“) 


der sollte sich einer Intensiv-Therapie 
in Form von Larry Nivens und Steven 
Barnes Roman “Traumpark“ unter¬ 
ziehen. 

In diesem Buch ist alles enthalten, was 
man zu einem guten Rollenspiel 
braucht - jede Menge guter Ideen, viel 
geschichtlicher Hintergrund, eine sehr 
exakte Beschreibung der teilnehmen¬ 
den Charaktere sowie eine absolut logi¬ 
sche Geschichte mit mythologischem 
Hintergrund. 

Natürlich helfen auch Tolkiens Klassi¬ 
ker “Herr der Ringe“ oder andere Fan¬ 
tasy-Literatur über Startschwierigkei¬ 
ten bei der Story-Entwicklung hinweg. 
Ein Tip: Wer eine Reise mit festgeleg¬ 
tem Ausgangspunkt und bestimmten 
zwangsläufig zu durchlaufenden Statio¬ 
nen zum Grundgerüst der Handlung 
macht, hat es mit der Einbettung ein¬ 
zelner Gags und Herausforderungen 
leichter als derjenige, der auf die vorge- 
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Fin Klassiker unter den computerisierten Rollen¬ 
spielsystemen ist das “Adventure Construction 
Set“ von Stuart Smith, das für verschiedene 
Computersysteme vom C-64 bis zum IBM-PC er¬ 
hältlich ist. Dieses Bild aus der PC-Version zeigt 
eine typische Kampfszene: Die Balken rechts ver¬ 
anschaulichen die momentanen Werte für Ge¬ 
sundheit und Kampfkraft der gerade aktiven Fi¬ 
gur. Wenn in einem Rollenspiel gekämpft werden 
soll, ist eine genau dosierte Portion Zufall bei 
der Berechnung wichtig: Zuwenig läßt keine 
Spannung entstehen, zuviel macht das Spielsy¬ 
stem unberechenbar und “unfair" 


gebene “Wegstruktur“ seiner Spiel¬ 
handlung verzichtet. 

Fest der Phantasie 

Nachdem Sie nun jede Menge Literatur 
über mittelalterliche Waffenkunde, 
Burgen- und Festungsbau sowie Fanta¬ 
sie-Lektüre hinter sich gebracht haben, 
müssen Sie Helden zeugen. Nein, nein 
— nicht so, sondern mit Bleistift und 
Schreibblock. 

Eine recht lebensfähige Mischung be¬ 
kommen wir mit einem reinen Kämp¬ 
fer. einem magisch begabten Kleriker, 
einem Dieb sow ie einer Zauberin, die 
auch mit Heilkräften ausgestattet wird. 
Die Geschichte für unsere Helden ha¬ 
ben Sie natürlich auch schon im Kopf, 
fehlt nur noch der richtige Lebensraum 
für die tatendurstigen Recken. 

Um nicht gleich den Überblick zu ver¬ 
lieren. lassen Sie die Geschichte in ei¬ 
nem übersichlichen alten Gewölbe be¬ 
ginnen. Die einzelnen Räume zeichnen 
Sie auf und notieren sämtliche ver¬ 
steckten wde offenen Verbindungen die¬ 
ser Räume zueinander. Zur besseren 
Orientierung richten Sic den Lageplan 
so aus, daß die nördlichen Räume oben 
und die südlichen entsprechend unten 
angeordnet sind. 

Wenn Sie alle Räume eingezeichnet ha¬ 
ben. muß eine Grundbeschreibung der 
einzelnen Räume, Zimmer oder Höh¬ 
len vorgenommen werden. Beispiel: 
Raum 1: Sie sind auf irgendwelchen 
Klippen. Im Osten sehen Sie einen 
Höhleneingang. 

Raum 2: Sie sind in einer großen, wei¬ 
ten Halle. Wege führen nach Osten. 
Westen und Süden. 

Raum 3: Sic sind in einer Höhle, In der 
Ecke schläft eine Schlange. Ausgänge 
sind nach Osten und Westen. 


Raum 4: Sie sind in einer kleinen Höh¬ 
le. Der einzige Ausgang führt nach We¬ 
sten. 

Raum 5: Sie sind in einer kleinen Höh¬ 
le. Ein Tunnel führt nach Norden. Im 
Osten sehen Sie eine große Tür. 

Raum 6: Sie befinden sich in einer 
Schatzkammer. Im Westen sehen Sie 
eine offene Tür. 

Details bitte 

Als nächstes gilt es, Gegenstände und 
Objekte zu definieren, die von den Hel¬ 
den gefunden, benutzt und auch in an¬ 
dere Räume geschafft werden können. 
Man sollte hier wieder darauf achten, 
daß die Geschichte logisch schlüssig 
bleibt. Eine zart gebaute Zauberin ist 
sicherlich nicht in der Lage, eine ton- 
nenschwere Goldkiste mit sich hcrum- 
zuschleppen. Ein kampferprobter Bar¬ 
bar w4ire dazu schon eher in der Lage, 
kann aber anschließend mit Sicherheit 
nicht mehr so schnell gehen wde ohne 
Kiste. Um hier zu greifbaren Maßen 
des Möglichen zu kommen, sollten die 
Helden mit Kraft- und Geschwindig¬ 
keitswerten versehen und einzelnen Ob¬ 
jekten entsprechende Subtraktionswer- 
te zugeordnet werden. 

Teilweise sind die Gegenstände natür¬ 
lich fest mit der Handlung verbunden. 
So läßt sich die Tür erst durch den 
Schlüssel öffnen, und die ach so leblos 
daliegcnde Schlange wird jeden Pas- 
sierversuch mit dem Verlust von eini¬ 
gen Stärkepunkten quittieren. Schlägt 
man sie aber vorher bewußtlos, kann 
man gefahrlos an ihr Vorbeigehen. Je¬ 
der Schlag ein Treffer - denn die 
Schlange ist noch satt vom letzten 
Abenteuer, daher setzen wir ihre Ge¬ 
schicklichkeit und Verteidigungskraft 
auf 0. 

Auch die weiteren Objekte des Spiels 
führen wdr in Form und Position ein¬ 
zeln auf: 

Objekt 1: Schlange, Raum 3 
Gewicht: - 
Angriff: 2 
Verteidigung: 0 
Geschicklichkeit: 0 
Objekt 2: Lampe, Raum I 
Gew'icht: 10 

Objekt 3: Schlüssel, Raum 4 
Gewicht: 1 

Objekt 4: Schatztruhe, Raum 6 
Gewicht: 110 

Objekt 5: tote Ratte. Raum 5 
Gewicht: 5 

Objekt 6: leuchtende Lampe. Raum 0 
Gewicht: 10 

Den nächsten und schwierigsten Schritt 
auf dem Weg zum fertigen Rollenspiel 
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Obwohl "Hallenspiel" mul " Fantasy " meist in einem Atemzug genannt wer¬ 
den, kann nutn ein solches Spiel auch durchaus in einem anderen Genre an¬ 
siedeln: in einer Science-Fiction-Umgehung etwa oder in einer typischen 
Krimi-Szenerie der fünfziger Jahre ä la Philip Marlowe. Beispiele dafür 
zeigt Smiths "Adventure Construction Set“ -hierein "Merkmalsblatt" fiir 
die Distanzwaffe ‘‘Eye of Fi re", die zu einer Science-Fiction-Story gehört. 
Solche "Merkmalsblätter“ geben etwa bei einer Waffe darüber Auskunft, 
wieviel Schaden sie anrichtet und wie hoch ihre Trefferwahrscheinlichkeit 


Kein Fantasy-Spiel ohne Zaubersprüche und geheimnisvolle Orakel. Die 
“Mystics“ in "Dark Sceptre" beispielsweise können ihre Gegner in Stein 
oderauch in willfährige Spione verwandeln. Freundlichere Handlungen des 
"magischen “ Bereichs sind etwa das Heilen von Wunden oder das Befreien 
einer Figur von feindlichen Sprüchen. Zaubersprüche werden je nach Rol¬ 
lenspiel-System wie Gegenstände gefunden, gekauft, erkämpft oder wie Ei¬ 
genschaften erwürfelt, erlernt und zugeteilt 


ist 


i 


stellen die eigentlichen Handlungsvor¬ 
gaben des Spiels dar. Was sich bei ei¬ 
nem Rollenspiel ohne Computer noch 
aus der Situation heraus schöpfen und 
dirigieren läßt, muß für den Kollegen 
Computer im voraus bedacht werden. 

Dabei gliedern wir diese Handlungs- 
Bedingungen am besten in drei 
Gruppen: 

•Bedingungen mit niedriger Priorität, 
die erst auftreten, nachdem der Spieler 
seine Handlung vollzogen hat. 

• Lokale Bedingungen, die streng 
raum- oder ortsgebunden sind. Dazu 
zählen auch Dinge wie die Marschan¬ 
weisungen für Ihre Gruppe mit den da¬ 
zugehörigen Reaktionen, Ortsbeschrei¬ 
bungen oder aber Folgereaktionen, die 
dann vom Programm oder Spielleiter 
an die Gruppe gegeben werden. 

• Bedingungen mit hoher Priorität, die 
für das ganze Spiel gelten und erfüllt 
sein müssen, bevor die Gruppe oder ein 
einzelner Kämpfer Aktionen ausführen 
kann. Dazu gehören etwa eine ausrei¬ 
chende Anzahl Stärkepunkte zum Ge¬ 
hen oder aber die schon erwähnte Aus¬ 
gewogenheit zwischen Gepäck und 
Kraft des einzelnen Kämpfers. 

Bis hierher spielte es last keine Rolle, 
ob Sie Ihr Rollenspiel im trauten Freun¬ 
deskreis mit Spielleiter oder aber als 
Computerspiel ins Leben rufen wollen. 

Alle Leser, die ihre Idee nun erst an ei¬ 
nem Wochenende mit Würfelbecher 
und Zinnfiguren erproben wollen, diir- 


en wir hiermit vorerst aus unserem klei¬ 
nen Rollenspiel-Einmaleins entlassen. 

Den unerschütterlichen Bitbeißern, die 
jedoch entschlossen ihren Rechner un¬ 
ter Strom setzen und ungeduldig die 
Hände um die Tastatur kreisen lassen, 
dürfen wir nun die ersten Stufen in eine 
magische Welt von Strings, Grafikfor¬ 
maten, Parsern und Scroll-Routinen 
zeigen. 

Text und Grafik 

Als letzte Stufe unserer Vorplanung 
steht die Frage nach dem eigentlichen 
Typ des Rollenspiels. Wollen Sie sich 
auf ein textorientiertes, befehlsgesteu¬ 
ertes Abenteuer einlassen, soll es ein 
symbolorientiertes Spiel im Stil von 
“Ultima“ sein, oder trauen Sie sich gar 
eine Mischung aus Text und Grafik zu? 
Im ersten Fall wird viel davon abhän- 
gen, wie intelligent Ihr Parser und wie 
geistreich Ihre Dialoge sind. Der Parser 
ist dann sozusagen der Mittler zwi¬ 
schen Ihrer Fantasicwelt und dem Spie¬ 
ler. Einen guten Parser zu programmie¬ 
ren, der über die unnatürlichen Zwei- 
Worte-Kombinationen wie etwa 
“Nimm Gold“ oder “Zünde Kerze“ 
hinausreicht, ist schon ein schweres 
Stück Arbeit. In der nächsten Folge 
werden wir einen kleinen Parser pro¬ 
grammieren und alle dabei auftreten¬ 
den Schwierigkeiten behandeln. 
Einfacher ist es, wenn man den moder¬ 
nen Weg des vom Wortschatz her einge¬ 


schränkten Menüdialogs nimmt. Hier 
stellt man eine bestimmte Anzahl von 
Symbolen oder Worten (Hand für neh¬ 
men, ablcgen, Waffe für kämpfen usw.) 
zur Verfügung, die je nach Situation 
vom Spieler über Joystick oder Tastatur 
angewählt werden können. 

Alle neueren Rollenspiele bedienen 
sich dieser Technik. Der Nachteil ist, 
daß ausführliche Dialoge dabei meist 
unter den Tisch fallen. Dafür erspart 
man sich den Frust, an einem Monster 
im letzten Level zu scheitern, nur weil 
das rettende Gitter sich nur über die 
Wortkombination “Fallgitter“ aktivie¬ 
ren ließ und der Begriff “Gitter“ nicht 
akzeptiert wurde. 

Die symbol- und grafikorientierten 
Rollenspiele und Adventure leben ne¬ 
ben der guten Story auch von einer zur 
Handlung passenden Grafik. Im Rah¬ 
men unserer Rollenspiel-Reihe werden 
wir einige Hilfsmittel entwickeln, die 
Ihnen die Herstellung von Labyrinthen, | 
zusammenhängenden Landschaften 
und komplexen Gewölben erleichtern 
werden. 

Bis zum nächsten Mal haben Sie Ihre 
Story sicherlich so weil ausgefeill und 
entwickelt, daß wir zusammen mit dem 
dann vorgestellten Parser schon ein 
hübsches Rollenspiel-Abenteuer pro¬ 
grammieren können. 

Bis dann - und bleiben Sie gesund! 

Ulrich Schmitz/sz 
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Bankgeschäfte 

Nutzung der zweiten 64 kByte 
beim CPC 6128 

Wer hat schon vierundsechzigtausend übrig? Deshalb sollten Sie die 
64-kByte-Speicher Ihres CPC auch nicht brachliegen lassen. 


Der CPC 6128 hat gegenüber seinen 
Brüdern einen entschiedenen Vorteil, 
er hat einen Speicher von 128 kByte 
(wie schon im Namen ersichtlich). Der 
Prozessor des CPC, der Z80, hat aber 
nur 16 Adreßleitungen. Mit diesen läßt 
sich maximal eine 16-Bit-Zahl übertra¬ 
gen, was bedeutet, daß maximal 65536 
Byte (2 16 ) adressiert werden können. 
Ein kByte hat 1024 Byte; somit sind 
dies also die bekannten 64 kByte. Um 
mehr Speicher verwalten zu können, 
muß also irgendein Trick angewendet 
werden. 

Denkbar wäre es, den zu großen Spei¬ 
cher in passende kleinere Bereiche auf¬ 
zuteilen und diese dann dem Prozessor 
abwechselnd zugänglich zu machen. 
Genau diese Möglichkeit wird im CPC 
und vielen anderen Computern, wie 
beispielsweise auch den IBM-PCs, ge¬ 
nutzt. Der Speicher des CPC 6128 ist 
in acht 16 kByte große Bereiche aufge¬ 
teilt. die man von null bis sieben durch¬ 
numerieren kann. Durch Verwendung 
bestimmter Befehle werden nun der je¬ 
weils benötigte Block oder auch meh¬ 
rere Blöcke eingeblendet. Dazu muß 
man ein oder mehrere Speicherfenster 
festlegen, die hierfür benutzt werden. 
Das am häufigsten benutzte Fenster ist 
hierbei das im Adreßbereich von 
&4000 bis &7FFF. Wird nun der kon¬ 
ventionelle Speicher in diesem Bereich 
inaktiv geschaltet, so kann hier ein an¬ 
derer 16-kByte-Block eingeblendet 
werden. 

Der Z80 besitzt zwei verschiedene 
Möglichkeiten, um mit seiner Umge¬ 
bung in Verbindung zu treten. Die eine 
ist, er tauscht seine Daten mit dem 
Speicher aus, die andere, er tauscht 
diese aus mit sogenannten Ports. Als 
Port kann man im weiteren Sinne den 
Drucker oder die Tastatur bezeichnen. 
Für jede Operationsart hat der Prozes¬ 
sor nun einen Adreßumfang von &0 bis 
&FFFF, das sind 65536 Byte, zur Ver¬ 
fügung. Der Speicherbereich ist ja be¬ 
kanntlich schon voll belegt, aber wer 
hat schon über 65tausend Drucker? 
Hier sind also noch freie Ressourcen. 
Und genau diese werden beim 
2PC6128 genutzt. Aus technischen 


Gründen stehen aber nur eine begrenz¬ 
te Anzahl von IN/OUT-Ad ressen zur 
Verfügung, von denen eine einzige für 
die zweiten 64 kByte vorgesehen ist. 
Das mag etwas mager erscheinen, ist 
aber völlig ausreichend. Diese Adres¬ 
se, sie lautet &7FXX (“XX“ bedeutet, 
daß dieser Teil der Adresse beliebig 
sein kann), wird nur dazu genutzt, ei¬ 
nen Schaltbefehl an den richtigen Emp¬ 
fänger weiterzuleiten. 

Der Trick mit den 
I/O-Adressen 

Genau dieser Schaltbefehl ist es nun, 
mit welchem die Konfiguration des 
Speichers festgelegt wird. Er ist in ei¬ 
nem Datenbyte, welches gleichzeitig 
mit der Portadresse übermittelt wird, 
verschlüsselt. Das Datenbyte kann acht 
verschiedene Werte (&C0 bis &C7) 
annehmen. Die dadurch erzielbaren 
Speicherkonfigurationen sind aus der 
Tabelle ersichtlich. Die Zeilen stellen 
je eine Speicherkonfiguration dar, die 


Spalten geben an, welcher Speicher¬ 
block sich auf welcher Adresse be¬ 
findet. 

Beispiel: Es soll der Speicherblock 
fünf in das Speicherfenster von &4000 
bis &7FFF eingeblendet werden. In 
der Spalte &4000 bis &7FFF wird nach 
dem Block fünf gesucht. Die gefunde¬ 
ne Zeile ist dem Steuerbyte &C5 zuge¬ 
ordnet. Das Byte &.C5 muß also auf die 
Adresse &7FXX ausgegeben werden. 
Die wohl interessantesten Einstellun¬ 
gen sind die ab Schaltbefehl &C4. Hier 
werden in das Speicherfenster von 
&4000 bis &7FFF nacheinander mit 
größer werdendem Steuerbyte die 
Speicherblöcke vier bis sieben einge- 
blendet. Mit dem Schaltbefehl &C2 
werden die beiden 64-kByte-Speicher- 
blöcke komplett ausgetauscht, wobei 
der Bildspeicher in seinem ursprüngli¬ 
chen Block verbleibt. Das bedeutet, 
daß nun der gesamte 64-kByte-Bereich 
für Programme zur Verfügung steht. 
Bei diesem Schaltbefehl sind aber eini¬ 
ge Besonderheiten zu beachten. 

Ein im Speicher laufendes Programm, 
welches diesen Schaltvorgang auslöst, 
wird ja plötzlich weggeschaltet. Der 
Prozessor setzt aber stur sein Pro¬ 
gramm auf der folgenden Adresse fort. 
Also muß im entsprechenden anderen 
Speicherblock die Fortsetzung des Pro¬ 
gramms stehen. Ist dies nicht der Fall, 
stürzt der Rechner unweigerlich ab. 
Die Umschaltung des kompletten Spei- 


normal nutzbarer 
RAM-Speicher 


&0000 

&4000 

&8000 

&C000 

&FFFF 


der zweite 64 kByte 
RAM-Speicher 


Block 0 


Block 4 

&C4 

Block 1 


Block 5 

&C5 

Block 2 

\ 

\ 

\ 

\ 

Block 6 

&C6 

Block 3 

\ 

\ 

V 

Block 7 

&C7 


Das Speicherfenster im Block 1 
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Datenbyte &0000-&3FFF 

&4000-&7FFF 

&8000-BFFF 

&C000-&FFFF 

&C0 

0 

1 

2 

3 

&C1 

0 

1 

2 

7 

&C2 

4 

5 

6 

7 

&C3 

0 

3 

2 

7 

&C4 

0 

4 

2 

3 

&C5 

0 

5 

2 

3 

&C6 

0 

6 

2 

3 

&C7 

0 

7 

2 

3 


Die Speicherkonfiguration hei Jen verschiedenen Steuerbytes 


chers wird vor allem von CP/M plus 
genutzt. Hierbei laufen die Programme 
unter CP/M größtenteils im zweiten 
64-kByte-Bcreich ab. Hingegen liegen 
große Teile des Betriebssystems CP/M 
im konventionellen, also ersten Spei¬ 
cherbereich. 

CP/M und Bankumschaltung 

Beide Betriebssystemteile haben dabei 
einen gemeinsamen Speicherbereich, 
Common-Bereich genannt. Dieser 
liegt ab Adresse &C000 bis zum Spei¬ 
cherende. Dadurch wird es möglich, 
problemlos die anderen Bänke zu 
schalten und Daten auszutauschen. Wo 
liegt aber nun der Bildspeicher? Dieser 
wird in den Bereich von &4000 bis 
&7FFF geschaltet. Hier wird das Steu¬ 
erbyte &C3 verwendet. 

Wird also unter CP/M auf Betriebssy¬ 
stem-Ressourcen zurückgegriffen, wird 
ständig zwischen den Speicherblöcken 
hin und her geschaltet. Da das sehr 
schnell geht, merkt der Anwender 
kaum etwas von diesen Vorgängen. 

Hat man in einem eigenen Programm 
die beiden Speicherbänke völlig ver¬ 
tauscht, stellt natürlich die Ein- und 
Ausgabe von Zeichen ein besonderes 
Problem dar. Hierfür müssen natürlich 
erst der Bildspeicherblock und die Be¬ 
triebssystem-Vektoren in den ur¬ 
sprünglichen Zustand versetzt werden, 
so daß diese Bereiche real adressierbar 
sind. 

Hat man ein sehr großes Programm, 
aber sehr wenige Bildschirmausgaben, 
so kann nun ein weiterer Steuerbefehl 
Abhilfe schaffen. Durch Ausgabe des 


Datenbytes &C2 
wird der Bildspei¬ 
cher weggeschal¬ 
tet und der Block 
sieben in den Be¬ 
reich von &C000 
bis &FFFF einge¬ 
blendet. Zur Er¬ 
leichterung von 
Bildschirmausga¬ 
ben in diesem Zu¬ 
stand kann nun mit 
dem Steuerbyte &C3 der Bildschirm- 
Speicher in den Adreßraum von &4000 
bis &7FFF eingeblendet werden. 

Bildspeicher im Hintergrund 

Schreibt man einmal selbst ein Pro¬ 
gramm, so steht man oftmals vor der 
Aufgabe, mehrere Bilder schnellst¬ 
möglich darstellen zu wollen. Am be¬ 
sten wäre es, sie alle im Speicher zu 
halten. Ein Beispiel, wie dies gelöst 
werden könnte, gibt Ihnen unser Li- 
sting. Bei der Anwendung eines sol¬ 
chen Programms 
sollte man natür¬ 
lich darauf achten, 
daß sich dieses 
nicht im Adreßbe- 
reich von &4000 
bis &7FFF befin¬ 
den. Ansonsten 
stürzt der Rechner 
ab oder zeigt ir¬ 
gendwelche seltsa¬ 
men Reaktionen. 

Manch einem mag 
die Nutzung des 
Bankmanagers 


wohl mehr Zusagen. Aber ist Ge¬ 
schwindigkeit gefragt, hat die direkte 
Schaltung des erweiterten Speichers 
über I/O-Bel'ehle entschiedene Vortei¬ 
le. Der CPC hat natürlich nicht nur 
eine I/O-Adrcsse. Damit man einmal 
eine Übersicht über die anderen ver¬ 
wendeten Adressen bekommt, ist hier 
eine Tabelle abgedruckt. Ein “X“ be¬ 
deutet. daß diese Stelle beliebig sein 
kann. Bei der Bedienung des Gatc-Ar- 
ray ist zu beachten, daß auch das gesen¬ 
dete Datenbyte eine Auswahlfunktion 
hat. J 5 r g Gurowski 


I/O Adresse 

Byte 

Funktion 

&7FXX 

OX 

Gate Array - Farbadressenregister 


4X 

Gate Array - Farbwert Datenregister 


8X 

Gate Array - Mode-Auswahl 


CX 

Gate Array - FtAM-Bank-Register 

&BCXX 

XX 

CRTC Adressregister 

&BDXX 

XX 

CRTC schreiben 

&BFXX 

XX 

CRTC lesen 

&EFXX 

XX 

Centronics 

&F4XX 

XX 

PIO Port A 

&F5XX 

XX 

PIO Port B 

&F6XX 

XX 

PIO Port C 

&F7XX 

XX 

PIO Steuerport 


Die vom CPC belegten I/O-Adressen 


10 ' Listing 1 
20 ' BANK.BAS 

30 ' (c) by CPC International 
40 ' 

50 MODE 1 

60 PRINT"Nachdem Sie eine Taste gedrueckt 
haben, wird das DATABOX-Bild in den Speich 
er geladen und in der zweiten RAM-Bank 
abgelegt!" 

70 CALL &BB18 

80 ' Farben und Bild-Modus setzen 

90 INK 0,10 

100 INK 1,0 

110 INK 2,9 

120 INK 3,20 

130 BORDER 0 

140 MODE 1 

150 h=HIMEM 

160 ' Titelbild laden 

170 MEMORY &7FFF 

180 LOAD"Titel.bin",&8000 

190 CALL &8000 

200 ' Bank.Bin laden 

210 MEMORY &9FFF 

220 LOAD"bank.bin",&A000 

230 CALL &A000 

240 MODE 1 . 

250 PRINT"Jetzt ist das Bild in der zweite 
n RAM- Bank im Block vier abgelegt. Druec 
ken Sie eine Taste, so wird es wieder in 
denBildspeicher kopiert." 


[1024] 

[1006] 

[1029] 

[117] 

[506] 

[12291] 


[389] 

[3240] 

[64] 

[49] 

[104] 

[238] 

[1008] 

[506] 

[373] 

[1157] 

[150] 

[1063] 

[453] 

[1393] 

[134] 

[2095] 

[637] 

[506] 

[12350] 


260 CALL &BB18 

270 CALL SA003 

i 

[ 389 ] 
[638] 

10 ' Listing 2 

[1019] 

20 ' BANK.LDR 

[1053] 

30 ' Datalader fuer BANK.BIN 

[869] 

40 ' (c) by CPC International 

[1029] 

50 ' 

[117] 

60 MEMORY &9FFF 

[134] 

70 RESTORE 190 

[773] 

80 ' einpoken und abspeichern 

[3045] 

90 FOR adr=SA000 TO &A032 STEP 8 

[1115] 

100 FOR i-adr TO adr+7 

[1011] 

110 READ b$ 

[315] 

120 byte=VAL("&"+b$) 

[465] 

130 POKE i,byte 

[294] 

140 NEXT i 

[375] 

150 NEXT adr 

[547] 

160 SAVE"bank.bin",b,&A000,&32 

[1587] 

170 END 

[HO] 

180 ' Datas 

[433] 

190 DATA C3,06,a0,o3,lc,a0,01,c4 

[1828] 

200 DATA 7f,ed,49,21,00,cO,11,00 

[1562] 

210 DATA 40,01,00,40,ed,b0,01,C0 

[1118] 

220 DATA 7f,ed,49,c9,01,c4,7f,ed 

[1771] 

230 DATA 49,21,00,40,11,00,C0,01 

[730] 

240 DATA 00 ,40,ed,b0,01,c0,7f,ed 

[1105] 

250 DATA 49,00,00,00,00,00,00,00 

[733] 
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Angelesen 


Bücher unter der Lupe 


Einführung in Pascal: Garantiert PASCAL 
lernen durch schrittweise Erarbeitung 


Autor: Rupert Röder 
Verlag: Falkcn-Verlag GmbH 
ISBN: 3-8068-4325-2 

PASCAL ist eine der bedeutend¬ 
sten Programmiersprachen und 
hat BASIC bei weitem überholt. 
In Schulen und Hochschulen 
wird größtenteils mit PASCAL 
gearbeitet. Es gibt eigentlich 
kein Computersystem, für das 
nicht bereits eine Implementa¬ 
tion erstellt wurde. So natürlich 
auch lur den CPC. Hier gibt es 
die verschiedensten Varianten, 
von HighSoft-Pascal bis hin zu 
TURBO PASCAL unter CP/M. 

Das Buch vom Falkcn-Verlag 
gibt eine anschauliche Einfüh¬ 
rung in die Programmiersprache 
TURBO PASCAL. Die verwen¬ 
deten Beispiele sind verständ¬ 
lich und leicht nachvollziehbar. 
Sie sind so gehalten, daß sie in 
späteren, eigenen Programmen 


als nützliche Anregung dienen 
können. Da das Buch nicht auf 
spezielle Dialekte eingeht, sind 
die abgedruckten Beispiele, von 
TURBO PASCAL 3.0 bis hin zu 
neusten Versionen von Micro¬ 
soft und Borland, uneinge¬ 
schränkt lauffähig. 

Dieser Umstand macht das 
Buch natürlich für den CPC-Be- 
nutzer interessant, für den es ja 
leider nicht mehr allzu viele 
neue Literatur gibt. Wo cs nötig 
ist, wird erklärt, wie die betref¬ 
fenden Befehle unter den ver¬ 
schiedenen Versionen benutzt 
werden. Dabei wird größtenteils 
von der Version 3.xx ausgegan¬ 
gen, die auch auf dem CPC un¬ 
ter CP/M implementiert ist. Be¬ 
sonders hevorzuheben ist die 
Eignung des Buches für Pro¬ 
gramm ieran langer. Zu Beginn 
erfahrt der Leser etwas über die 
Grundlagen der Programmie¬ 


rung und über die Sprache PAS¬ 
CAL. Nach der Erklärung zur 
Bedienung von TURBO PAS¬ 
CAL wird der Leser allmählich 
an das erste selbstgeschriebene 
PASCAL-Programm herange¬ 
führt. Im folgenden ist alles 
Wichtige über Programmauf¬ 
bau, Prozeduren, Funktionen. 
Variablen und Konstanten zu er¬ 
fahren. Nachdem man gelernt 
hat. was ein Entschcidungsope- 
rator ist und welche Gefahren 
bei der Nutzung des GOTO-Be- 
fehls auftreten. wird dann am 
Schluß des Buchs erklärt, was cs 
mit den Parametern und den Re¬ 
cords, Arrays und Files auf sich 
hat. 

Am Ende jedes Absatzes wer¬ 
den Aufgaben gestellt, an denen 
jeder individuell kontrollieren 
kann, was er im vorangegange¬ 
nen Abschnitt gelernt hat. Für 
Anfänger und jemanden, der auf 


PASCAL umsteigen will, ist das 
Buch hervorragend geeignet. 
Auch für Fortgeschrittene ist es 
als Nachschlagewerk sehr hilf¬ 
reich. 

jg 


Computer mntöndlich 

i aSCul 

_Garantiert_ 

Pascal lernen 

__durch 

schrittweise 
_Erarbeitung 


ZtAlWN/ 


Das große Computerschach-Buch 


Autor: Bartel, Kraas, Schrtitel 
Verlag: Data Becker 
ISBN: 3-89011-117-3 

Wer etwas hinter die Kulissen 
der Schachprogrammierung 
schauen möchte und neben Hin¬ 
tergrundwissen auch die Logik 
der Strategieprogrammierung 
erlernen will, der sollte dieses 
Buch ins Auge fassen. 

Nach einem kurzen Ausllug in 
die Vergangenheit erhält der In¬ 
teressierte auf rund 50 Seiten ei¬ 
nen groben überblick auf die er¬ 
sten Schaehcomputer und die 
seinerzeit entstandenen Theo¬ 
rien, um dann im weiterne Ver¬ 
lauf auf den strategischen 


Aspekt hinzuarbeiten, die 
Schach mit sich bringt. 

Am Beispiel einer einfachen 
Umsetzung des bekannten 
Spiels Tic Tac Toe in CPC-BA- 
S1C werden zunächst die 
Grundzüge eines strategischen 
Programms entwickelt und auf¬ 
gezeigt. Das erste Resultat kann 
sich sicherlich sehen lassen. 
Doch damit nicht genug, fängt 
der Spaß (oder die Arbeit) am 
Computer erst an. Der Hauptleil 
des Buches beschäftigt sich mit 
der Logik der Schachprogram- 
mierug und der eigentlichen 
Programmentwicklung. 

An anschaulichen Beispielen 
verdeutlichen die Autoren alle 
nötigen Schritte, die zum modu¬ 


laren Aufbau des Prograimns 
nötig sind. 

Nebenbei werden gleich noch 
Begriffe wie Rekursion und Stack 
erklärt. Man erfährt näheres über 
den Alpha-Beta-Algorithmus und 
wächst neben dem Programm 
langsam, aber sicher auch in die 
Programmiertechniken und das 
Denken hinein, das Wissen¬ 
schaftler von vor rund 40 Jahren 
bis heute mühsam erarbeitet ha¬ 
ben. Am Ende hat der Leser ne¬ 
ben gewonnenem Wissen auch 
ein fertiges Schachprogramm, 
das zwar nicht selbst lernfähig ist, 
jedoch schon einmal die Grund¬ 
idee bei der Entwicklung einer 
“selbstdenkenden" Software ver¬ 
deutlicht. rs 


Bartel Kraas 
Sdrüfer 

das grosse 



Computer 
schach 
buch 


EIN DATA BECKER BUCH 
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Alles beim alten? 


Datenkompression auf dem Z80 

Iveerdisketten — das leidige Thema beim CPC und PCW. Wer keine hat, 
dringend eine braucht, bekommt keine, weil der nächste Laden mit dieser 
kostbaren Wäre im Angebot lockere 100 km oder weiter entfernt ist. Platz 
schaffen heißt die Devise, aber wie? 


Da ja nicht alle Daten, die sich im Lau¬ 
fe der Zeit auf den Datenträgern angc- 
sammelt haben, unbedingt auf Abruf 
bereitstehen müssen, bietet cs sich an. 
Sie mittels bestimmter Programme zu- 
sammenzustauchen und in sogenannte 
Archivdateien zu kopieren. Einige der 
gängigsten Programme, die diese Funk¬ 
tionen anbieten, können Sie der Tabelle 
"Packer und Entpacker im Überblick" 
entnehmen. Hierbei handelt es sich 
größtenteils um Public-Domain-Soll- 
ware, die bei den meisten PCW- und 
CPC-Händlern sowie auch bei uns be¬ 
zogen werden kann. 

Packen, aber wie? 

Die einfachsten Packprogramme wie 
KOMP und DEKOMP (siehe CPC 
IO/H’90; Für immer und ewig) orientie¬ 
ren sich an gleichen Zeichenfolgen. 
Das oben genannte Programm faßt le¬ 
diglich mehrere aufeinanderfolgende, 
gleiche Bytes in einer Datei zu zwei 
Byte zusammen. Hierbei gibt das erste 
Byte die Anzahl der Wiederholungen 
und das zweite Byte den jeweils wieder¬ 
holten Wert an. Diese Methode eignet 
sich jedoch nicht für bereits optimierte 
COMmando-Programme, sondern zeigt 
seine Effizienz lediglich bei Texten oder 
Quellcodes, die der Übersichtlichkeit 
halber Unmengen an Leerzeichen in 
sich vereinen. 


Bei diesen Dateien läßt sich dann auch 
ein recht gutes Ergebnis erzielen. Die 
Datei DBASEMSG.TXT, die zu dem 
Programmpaket dBasell gehört, warte¬ 
te zum Beispiel mit einer Originallänge 
von 60 799 Byte auf. Nachdem sie nun 
mit KOMP zusammengestaucht wurde, 
umfaßte sic lediglich 55 8(77 Byte, ein 
Platzgewinn von rund neun Prozent also. 
Der Filesqeezer SQ.COM jedoch, der 
einen anderen Algorithmus benutzt, 
konnte die Datei sogar auf 37 375 Byte 
packen, was eine Reduzierung von 39 
Prozent bedeutet. Ein beachtliches Er¬ 
gebnis, das sicherlich so mache Disket¬ 
te überflüssig werden läßt. 

Will man nun alle gepackten Dateien ei¬ 
ner Diskette in ein Archiv übernehmen, 
kann das Programm LU dienlich sein. 
Es Übergibt mehrere Dateien ohne gro¬ 
ßen Platzverlust in eine Archivdatei, 
die dann bequem auf eine Diskette ko¬ 
piert werden kann und sicherlich auch 
in Sachen Übersichtlichkeit weiterhilft. 
Eine Komplettlösung bietet hier jedoch 
das Programm ARK. welches neben 
sehr guten Packergebnissen auch gleich 
eine Archivfunktion beinhaltet. ARK 
sollte also zum Favoriten werden. 

Packverfahren 

Neben dem schon Vorgestellten gibt es 
außerhalb der CP/M-Barrieren noch 
andere, wesentlich wirkungsvollere 


Methoden der Datenkompression. Für 
Amiga, Atari ST und MS-DOS-PCs ist 
solche Software schon so üblich, daß 
sie im großen ganzen gar nicht mehr er¬ 
wähnt werden muß. Wir möchten Ihnen 
die zwei am weitesten verbreiteten Al¬ 
gorithmen des LHArc-Packers vorstel¬ 
len, der auf mehreren Systemen erfolg¬ 
reich eingesetzt wird. 

Als erstes sollte das LZSS (Abwand¬ 
lung des 1982 vorgestellten Lempel- 
Ziv-Kompressionsverfahrens) behan¬ 
delt werden. 

Hierbei wandern alle Daten, bevor Ihre 
eigentliche Übertragung stattfindet, zu¬ 
nächst in einen Ringpuffer. Vor dem 
Abschicken einer Zeichenkette wird 
dann überprüft, ob sie bereits im Ring¬ 
puffer gespeichert ist. Ist das der Fall, 
wird nicht die Zeichenkette weitergege¬ 
ben, sondern der Abstand nach hinten 
zur alten Kette und die Anzahl der Zei¬ 
chen, die verwendet werden können. 
LZSS sendet also entweder Klartext 
oder Verweise auf schon gesendete 
Strings. 

So würde “Abrakadabra" als "Abra- 
kad“,7.4 gesendet werden. Eine Über¬ 
prüfungsroutine müßte lediglich noch 
bei den Zeichen "7,4" im Ringpuffer 
nachsehen, der bisher aufgebaut 
wurde. 

Der Ringpuffer enthält die letzten über¬ 
tragenen Bytes also immmer im Klar¬ 
text. Eine Verschlüsselung findet erst 
statt, wenn die Zeichen den Puffer ver¬ 
lassen. So einfach dieses Verfahren 
auch ist, die Kompressionsrate ist be¬ 
reits verblüffend. 

Ein komplizierter Tabellenaufbau mit 
Hash-Funktioncn wie beim verwandten 
LZH-Verfahren entfällt. Außerdem ist 
die Dekompression so simpel, daß sie 
auch ohne Probleme in einem winzigen 
Assembler-Programm untergebracht 
werden kann. Beim LZSS-Verfahren 
muß auch nicht auf häufig auftauchen¬ 
de Wörter geachtet werden. Diese sind 
mit allergrößter Wahrscheinlichkeit so¬ 
wieso im Puffer enthalten und werden 
entsprechend verschlüsselt. 

Was den Algorithmus sehr stark verein¬ 
facht, ist die Beschränkung auf eine 
maximale Ersetzungslänge. So kommt 
es in normalen Dateien nur äußerst sel¬ 
ten vor, daß die Länge eines Strings, der 
ersetzt wird, größer als 60 Zeichen ist. 
Diese maximale Anzahl von Zeichen 
wird bereits in den Ringpuffer geladen, 
ohne gesendet zu sein. Nun wird über¬ 
prüft, ob dieser String oder ein mög¬ 
lichst langer Teilstring bereits im Puffer 
vorhanden ist. Wenn ein gefundener 
Teilstring eine Länge von mehr als ei¬ 
ner minimalen Zahl von Buchstaben 


Text : "ABRAKADABRA" 

Ringpuffer: 

A 

B 

R 

A 

K 

A 

T 

D 1 A 

B 

R 

A 

. | . . | . 

Senden : 

12345678901 

A B R A K A D -7,4 

2 3 4 5 6 

Empfangen : 

A 

B 

R 

A 

K 

A 

D! a 

b 

r 

a 



12345671234 



Das LZSS-Vefahren: Klartext im Ringpuffer 
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O 



1 




0 

1 



0 

1 


0 

1 

0 

1 

0 

1 

1 

0 

A 

B 

D 

K 

R 

1 

1 

• 


Der binäre Baum für ein A Iphabet mit festen Längen — dieser wird in unse¬ 
rem Beispielprogramm verwendet 



Der Baum für ein A Iphabet mit variablen Längen 


hat, wird er ersetzt. Dies geschieht, in¬ 
dem die relative Position zum gerade 
gesendeten Zeichen und die Länge des 
Strings in die Datei geschrieben wer¬ 
den. Ist der String nicht durch einen 
Teilstring aus dem Ringpuffer ersetz¬ 
bar, wird das Zeichen unverändert wci- 
tergegeben. 

Damit der Entpacker auch feststent, ob 
ein Byte in einer komprimierten Datei 
nun eine Position-Längen-Kombination 
aus dem LZSS oder ein echtes ASC1I- 
Zeichen ist. wurde vor jedem Buchsta¬ 
ben —vor jeder Zeichenkombination — 
ein Bit gesendet, das mitteilte, ob ein 
Buchstabe oder eine Kombination folg¬ 
te. Dieses Verfahren sieht bereits per¬ 
fekt aus, ist es aber nicht. Genau an die¬ 
ser Stelle setzt der zweite Teil des Kom¬ 
pressors von “LhArc“ an. Anstatt ein 
Bit zu verwenden, das die Längen 
kennzeichnet, erweitert Yoshis Daten¬ 
presse das ASCII-AIphabet um einige 
Zeichen. Diese Zeichen werden zur 
Darstellung der Längen, die von LZSS 
aus dem Ringpuffer geholt wurden, ge¬ 
braucht. Wenn minimal drei und maxi¬ 
mal 60 Buchstaben ersetzt werden, be¬ 
deutet dies 58 zusätzliche Zeichen, von 
denen jedes eine Länge repräsentiert, 
die verschlüsselt wird. Da es sehr viel 
mehr Positionen als Längen im Puffer 
gibt, wäre es dumm, für jede Position 
einen eigenen Buchstaben einzusetzen. 


Die Position folgt direkt hinter dem 
“Längenbuchstaben“. 

“Haltet den Dieb!“, werden jetzt sicher 
einige rufen. “Das ASCIT-AIphabet ist 
bereits voll!“ Ist es auch. Seit uralten 
Zeiten ist jedoch unter den Weisen der 
Informatikergilde eine Methode be¬ 
kannt, die hier weiterhilft. Diese Me¬ 
thode wird nicht nur dafür eingesetzt, 
gewöhnliche Texte leicht zu verkürzen. 
Sie ist darüber hinaus in der Lage, Al¬ 
phabete optimal abzuspeichern, die 
nicht genau 256 oder 512 Zeichen ha¬ 
ben. Gemeint ist das Huffman-Coding. 

Huffman läßt grüßen 

Das Huffman-Coding ist eines der älte¬ 
sten Verfahren zur Datenkompression. 
Bereits 1952 stellte D.A. Huffman ein 
brauchbares Verfahren vor, mit dem 
sich Dateien komprimieren lassen. Das 
Verfahren von Huffman beruht auf der 
Idee, daß bestimmte Zeichen im Text 
sehr viel häufiger erscheinen als ande¬ 
re. In einem Pascal-Quelltext beispiels¬ 
weise gibt es sehr viel mehr Leerzei¬ 
chen als etwa “ß“. 

Werden nun nicht alle Zeichen mit Bit¬ 
folgen der gleichen Länge übersetzt, 
sondern durch verschieden lange Bit¬ 
kombinationen, so daß häufige Zeichen 
durch kurze Folgen und seltene Zeichen 
durch entsprechend längere Folgen 


übersetzt werden, verliert der Text an 
Länge. Ein Beispiel: Gegeben sei ein 
Text “ABRAKADABRA“. Das Wort 
enthält insgesamt fünf verschiedene 
Buchstaben, nämlich “A“, “B“,“R“,“K“ 
und “D“. Diese könnten in einem Al¬ 
phabet mit festen Bitlängen in Bit folgen 
übersetzt werden: 


A=000 

B=001 

D=010 

R=100 

K =011 


Die Kombinationen 101.110 und 111 sind 
nicht belegt. “ABRAKADABRA“, mit 
diesem Alphabet übersetzt, sieht dann 
folgendermaßen aus: 

00000.1100000011000010000001100000 
Die Decodierung eines solchen Alpha¬ 
bets ist ziemlich einfach. Um die Folge 
zu entziffern, müssen lediglich der Bit¬ 
strom in Dreierblöcke aufgeteilt und 
diese Blöcke durch eine Tabelle in 
Buchstaben zurückübersetzt werden. 
Die Nachteile eines solchen Verfahrens 
liegen auf der Hand: Einerseits sind bei 
allen Alphabeten, die nicht genau 2tn 
Zeichen enthalten, bestimmte Kombi¬ 
nationen nicht belegt — eine echte Ver¬ 
schwendung —, andererseits werden 
alle Buchstaben mit gleich langen Fol¬ 
gen übersetzt, ob sie nun einmal, oder 
fünfmal im Text Vorkommen. 


Packer 

Autor 

Format(Dateiendung) 

ARK V 0.1 

Brian E.Moore 

ARC 

KOMP 2.1 

Andreas Feldner/DMV 

KOM 

LU 2.11 

Gary P.Novosielski 

LBR 

SO 1.5 


?Q? 

Entpacker 

Autor 

Format(Dateiendung) 

DEKOMP 

Andreas Feldner/DMV 

KOM 

DELBR v. 1.1 

Aztec 

LBR 

UNARC 1.6 

Robert A.Freed 

ARC 

USQ 1.19 

Dave Rand 

?q? 


Bäcker und Entpacker im Überblick 


Packer 

Länge 

Datei 

Original 

28671 

BASIC.COM 

ARK 

28030 

BASIC.ARK 

KOMP 

28159 

BASIC. KOM 

SQ 

26240 

BASIC.CQM 

Original 

25600 

DMON.BAS 

ARK 

15480 

DMON.ARK 

KOMP 

24063 

DMON.KOM 

SQ 

19320 

DMON.BQS 

Original 

21370 

JT2.INC 

ARK 

8960 

JT2.ARK 

KOMP 

18687 

JT2.KOM 

SQ 

13440 

JT2.IQC 


Die Testergebnisse bei drei verschiedenen Dateiarten 
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Warum wählt man also nicht ein Alpha¬ 
bet. das für häufige Buchstaben kürze¬ 
re. für seltenere Buchstaben dagegen 
längere Folgen verwendet? Ein solches 
Alphabet könnte so aussehen: 


A=0 B=l() 

C=1100 K=ll()l 

R=II1 


“ABRAKADABRA“ wird in diesem Al¬ 
phabet zu “01011101101011000101110“ und 
ist damit um neun Bit kürzer als bei der 
Darstellung mit dem festen Alphabet. 
Die Decodierung gestaltet sich jedoch 
geringfügig schwieriger. Die Zeichen 



Aufbau eines Huffman-Trees: Liste mit Buchsta¬ 
ben und Häufigkeit 


müssen nacheinander entschlüsselt 
werden, da die Position des fünften 
Buchstabens ebensogut beim sechsten 
Bit wie beim 18. liegen kann, je nach¬ 
dem, welche Buchstaben vorangegan¬ 
gen sind. Schwierig ist vor allem die 
Konstruktion eines solchen Alphabets. 
Zwei Bedingungen müssen nämlich er¬ 
füllt sein: 

1. Das Alphabet muß eindeutig ent- 
schlüsselbar sein. 

2. Der Text soll bei der Benutzung des 
Alphabets möglichst kurz werden. 

Nichts geht ohne Bäume 

Beide Bedingungen erfüllt der Huff- 
man-Tree. Um ein entsprechendes Al¬ 
phabet für einen Text optimal zu ent¬ 
wickeln. stellt man das gesamte Alpha¬ 
bet als einen Binärbaum dar. 

Die Abbildung “Aulbau eines Huff- 
mann-Trees“ zeigt den zugehörigen 
Baum für das oben aufgclistete Mini- 
Alphabet mit festen Längen. Jeder linke 
Ast in diesem Baum w'ird mit einer Null 
versehen, jeder rechte mit einer Eins. 
Wenn eine Bitfolge decodiert werden 
soll, wird die Folge als Wegbeschrei¬ 
bung verwendet. Bei einer Null w'ird 
der linke, bei einer Eins der rechte Ast 
weiter untersucht. Sobald auf diesem 
Wege ein "Blatt“ gefunden w'ird, ist der 
Buchstabe decodiert. Der Weg beginnt 
wieder bei der Wurzel. 

Bei einem Alphabet mit variabler Co¬ 
delänge ist der Baum nun mehr oder 
weniger “entartet“; er besitzt kurze und 
lange Äste. An einem solchen Baum 
können Sie auch sofort erkennen, daß 
die Bitfolgen eindeutig entschlüsselbar 
sind: Jeder Weg führt zu genau einem 
“Blatt“, der Buchstabe ist eindeutig 
wieder auffindbar. Hier wird auch die 
Schwäche der Codierungen mit festen 
Längen offenbar: Manche “Blätter“ 
sind unbesetzt, die Kombinationen da¬ 
für sind nicht definiert. Bleibt also 
noch das optimale Alphabet, das die 
Buchstaben möglichst kurz werden 
läßt. Hierfür erdachte Huffman einen 
Algorithmus, der für einen bestimmten 
Text das optimale Alphabet entwirft. 

1. Zählen der Häufigkeit der einzelnen 
Buchstaben: A(5), B(2),D(1), K(l), 
R(2) 

2. Sortieren der Buchstaben der Häu¬ 
figkeit nach: D(l), K(l), B(2), R(2), 
A(5) 

3. Zusammen fassen der ersten beiden 
Elemente zu einem “Zweig“. Der 
Zweig w'ird bei der weiteren Konstruk¬ 
tion wie ein Buchstabe behandelt, seine 
Häufigkeit ergibt sich aus der Addition 


der Gesamthäufigkeiten. Er wird zu¬ 
nächst mit seiner neuen Häufigkeit in 
die Liste der Buchstaben eingefügt. 
Schritt 3 wird nun so oft ausgeführt, bis 
alle Zeichen in einem einzigen Baum 
stehen — dem Huffman-Tree. 

Neben der Herstellung eines optimalen 
Alphabets ist eine weitere Eigenschaft 
des Huffman-Trees die “silbing proper- 
ty“. Betrachten Sie einmal nicht nur die 
Häufigkeit der Blätter, sondern auch 
die der Knoten. Gehen Sie nun im 
Baum zeilenweise von links nach 
rechts, und klettern Sie mit den Zeilen 
von unten nach oben. Sie werden fest¬ 
stellen, daß die Häufigkeiten monoton 
steigend sind, also nie kleiner werden. 
Diese “silbing property“ ist nicht bloß 
eine zufällige Eigenschaft aller Huff¬ 
man-Trees. Es gilt sogar die Regel, daß 
jeder Baum mit dieser Eigenschaft au¬ 
tomatisch ein Huffman-Tree ist. Daher 
läßt sich die "silbing property“ zur 
Konstruktion von Huffman-Trees be¬ 
nutzen. Dies geschieht im “Adaptive 
Huffman Coding“, bei dem die Häufig¬ 
keiten der jeweils gesendeten Blätter 
während des Codier-/Decodiervor- 
gangs ständig verändert werden und der 
Baum an diese Änderungen angepaßt 
werden muß. 



44 CPC 10/11'91 



































































CP/M 


Bei dem Versuch, das Huffman-Verfah- 
ren auf Dateien anzuwenden, ergibt 
sich eine Schwierigkeit: Die Häufigkeit 
der Buchstaben muß bekannt sein, be¬ 
vor die Datei entschlüsselt werden 
kann. Sonst läßt sich der Baum nicht 
decodieren. Sender und Empfänger 
müssen genau den gleichen Tree ver¬ 
wenden. Um diese Synchronisation zu 
erreichen, werden normalerweise zwei 
“Krücken“ eingesetzt: 

1. “Static Huffman Coding“: Der 
Baum wird nicht für die jeweilige Datei 
aulgebaut, sondern ist schon vorher 
vorhanden. Das ist vorteilhaft, wenn 
viele Dateien gleichen Typs übertragen 
werden, die ohnehin eine sehr ähnliche 
Häufigkeitsverteilung haben. 

2. “Dynamic Huffman Coding“: Der 
Baum wird vor der eigentlichen Datei 
abgespeichert. Ein Verfahren, das sich 
nur lohnt, wenn die Datei sehr groß ist; 
die gepackte Datei wird dadurch länger. 
Um die Probleme der beiden Verfahren 
zu umgehen, schlug R. Gallager 1978 
eine Mischung aus den beiden älteren 
Algorithmen vor, die zu adaptiven 
Huffmann-Trees führt. Der Baum ist 
zunächst wie beim Static-Coding unab¬ 
hängig von der Datei fest definiert, 
wird aber nach jedem übertragenen 
Zeichen angepaßt. 

Nach jedem Zeichen nimmt in dem 
Baum die Häufigkeit dieses Zeichens 
um eins zu. Nun muß lediglich der so 
umgewichtete Baum auf die veränderte 
Situation angepaßt werden. Eine sehr 
zeitraubende Methode bestünde darin. 


den Baum jedesmal wieder neu aufzu¬ 
bauen. Das ist aber überhaupt nicht 
notwendig, da sich der alte Baum vom 
neuen jeweils nur minimal unterschei¬ 
det. Der Trick liegt hier bei der “silbing 
property“: Der Baum wird so verän¬ 
dert, daß er dieser Eigenschaft genügt, 
er ist dann wieder ein Huffman-Tree. 
Die Anpassung geschieht schrittweise. 
Zunächst bekommt nur der Knoten, 
von dem das Blatt ausgeht, die neue 
Häufigkeit. Dann wird sofort über¬ 
prüft, ob in diesem Fall die silbing pro¬ 
perty“ noch gegeben ist. Ist das nicht 
der Fall — hat also der Knoten eine grö¬ 
ßere Häufigkeit als seine “rechten“ 
Nachbarn -, dann wird der Knoten 
einfach mit dem am weitesten “rechts“ 
liegenden vertauscht, der eine geringe¬ 
re Wahrscheinlichkeit hat, als der gera¬ 
de untersuchte Knoten. Die Äste wan¬ 
dern selbstverständlich mit den Knoten 
mit. 

Da der Knoten, der gerade an die Stelle 
des aktuellen Knotens gelangt ist, die 
gleiche Wahrscheinlichkeit hat wie der 
aktuelle Knoten vorher, muß der Zweig 
nicht weiter angepaßt werden. Wichtig 
ist nur, die weiteren “Valerknoten“ in 
Ihren Häufigkeiten anzupassen und ge¬ 
gebenenfalls wieder zu verschieben. 
Ein nützlicher Nebeneffekt dieses Ver¬ 
fahrens liegt darin, daß sich der Baum 
zusätzlich an lokale Häufigkeitsvertei¬ 
lungen von Zeichen anpassen läßt. Eine 
solche lokale Anpassungsfähigkeit ist 
wünschenswert, da verschiedene Zei¬ 
chen auch in einer Datei nicht immer 


gleichmäßig verteilt Vorkommen, son¬ 
dern an manchen Stellen gehäuft. Die 
Anpassung wird erreicht, indem nach 
einer bestimmten Zeit einfach alle 
Blatt-Häufigkeiten halbiert werden. Bei 
einem solchen Schnitt muß allerdings 
der Baum vollständig neu aufgebaut 
werden. Durch die Halbierung spielen 
dann Zeichen, die vor einer bestimmten 
Zeit aufgetreten sind, eine sehr viel ge¬ 
ringere Rolle als neu aufgetretene Zei¬ 
chen. 

Durch das “Adaptive Huffman Coding“ 
werden nicht nur die LZSS“Längen¬ 
buchstaben“ optimal abgespeichert, 
sondern auch Buchstaben, die häufiger 
auftauchen, perfekt komprimiert. Ge¬ 
rade bei Quelltexten von Programmen 
ist der Wirkungsgrad dieser Kompres¬ 
sion offensichtlich: Nicht nur alle Wör¬ 
ter werden beim zweiten Auftreten 
komprimiert, sondern auch alle Zei¬ 
chen, die bisher nicht “erwischt“ wur¬ 
den. Das Semikolon zum Beispiel sitzt 
mit Sicherheit an einem sehr kurzen 
Ast und wird dadurch zusätzlich kom¬ 
primiert. Für unsere Leser, die Freude 
am Programmieren haben, ist im Heft 
das Listing eines Komprimierpro¬ 
gramms nach dem Dynamic-Huff- 
man-Coding-Verfahren abgedruckt. 
Aus Gründen der Geschwindigkeit und 
der Programmgröße haben wir dafür 
die Programmiersprache C gewählt. 
Als Compiler verwendeten wir den 
Small C-Compiler aus der Public Do¬ 
main, der auch über den DMV-Verlag 
erhältlich ist. .. 


/****************♦******************************* 


* LZH Version 1.0 vom 22.08.91 * 

* Autor: Joerg Gurowski * 

* Alle Rechte beim * 

* DMV-Verlag Red.CPC International * 

* Komprimierprogramm nach dem * 

* Huffman-Coding-Verfahren * 


************************************************/ 

linclude iolib.h 

#include args.h 

#define EOF -1 

Idefine MAXL 1040 

#define MAXTBL 2304 

int help,*blow,*bhigh,*anz,trpos,*fpi,*fpo,cbit, 
*statl,*stat2,contr; 
char *bits,byte,iname[ 16 ],oname[ 16 ]; 

main() 

{ 

char x[2]; 

/*Uebergabe der Argumente*/ 
setargs(); 

if(getarg(1,i,2)==EOF) noarg(); 

if(getarg(2,iname,16)==EOF) noarg(); 

if (getarg(3,oname,l6)==EOF) noarg(); 

/*Auswahl der Programme*/ 

if(upper(i[0])=='C') cod(); 

eise if (upper (i[0] )=='D' ) decod(); 

else( 

print ("Falsche Option angegeben!"); 
noarg(); 

} 


> 

/♦Textausgabe*/ 
print (text) 
char *text; 

{ iiSlI 

int i; 
char c; 
i=0; 

while<(c=text[i++])!= 0 ) 
putchar(c); 
putchar('\n'); 

lllgjl 

/♦Ausgabe des Fehlertextes 
fuer fehlende Argumente*/ 
noarg () 

{ 

print ("Komprimieren : lzh c Quelle Ziel"); 
print("Dekomprimieren: lzh d Quelle Ziel"); 
exit( 0 ); 

) 

noidat() 

{ 

print("Quelldatei nicht vorhanden!"); 
exit( 0 ); 

> 

/♦Statistische Ermittlung der Haeufigkeit eines 
Zeichens und Anlegen einer Tabelle nach der 
Haeufigkeit des Auftretens*/ 
stat ( ) 


10/11 ’91 CPC 45 














CP/M 



int b.c,cc,ind,max; 
char h; 

/»Speicher fuer zwei Felder resevieren*/ 
statl=alloc(5l2); 
stat2=alloc(512); 
c=0; 

/»Setzen aller Werte der Felder auf Null*/ 
while(c!=256) 

statl[c++]=stat 2 [c)= 0 ; 

/»Ermittlung der Haeufigkeit eines Zeichens*/ 
while((b=getb(fpi))!=EOF) 
statl[b)++; 

/»Anlegen einer Charactertabelle nach der 
Haeufigkeit eines Zeichens*/ 
c=cc=0 ; 

while(c!=256){ 

max=statl[cc]; 

ind=0; 

while(++cc!=256) 

if (max<statl [cc]){ 
max=statl [cc] ; 
ind=cc; 

}; 

stat 2 [c++]=ind; 
statl[ ind]=cc=0; 

} 

c=0; 

/»Erstellung der Kodiertabelle*/ 
while(c!=256){ 

/»Ausgabe der Charactertabelle 
in die Datei*/ 
putb( stat 2 [c], f po ); 
ind=stat2[c]; 
statl [ ind ]=c++; 

/»Freigabe des nicht mehr benoetigten Speichers*/ 
free(stat2) ; 

} 


/»Entkomprimierroutine*/ 
decod() 

int b; 
char h; 

/»Oeffnen der Dateien*/ 

if((fpi=fopen(iname,"r"))==0) noidat(); 
fpo=fopen(oname,"w"); 

print("Anlegen des Huffman-Trees"); 
mktree(); 

print("Dekodieren"); 

/»Decodieren mittels Huffman-Tree*/ 
trpos=cbit=contr=0; 
while(1==1){ 

/»Wenn Bitzaehler(cbit)=0 naechstes Byte 
hohlen */ 

if(cbit==0){ 

if((h=b=getb(fpi))==EOF) 

/»Nach hohlen'von lkB ausgeben*/ 
if(contr++ ==1024){ 
putchar 
contr=0; 

} 

/* if(b==EOF) break;*/ 

/»Wenn Zeichen gefunden - Ausgabe 
in die Datei*/ 
if(decsearch(&h)==l){ 
byte=bhigh[trpos]; 
putb(byte,fpo); 
trpos= 0 ; 

} 

> 

fclose(fpi); 
fclose(fpo); 

/»Komprimierroutine*/ 
cod() 

int b,c; 

/*Oeffnen der Dateien*/ 

if((fpi=fopen(iname,"r"))==0) noidat(); 

fpo=fopen(oname, " w"); 

print("Statistik"); 

stat(); . 

/»Ruecksetzen der Eingabedatei*/ 
fclose(fpi); 
fpi=fopen(iname,"r"); 

print("Anlegen der Kodier-Tabelle"); 


/»Anlegen der Tabelle mit den Bitmustern*/ 
mktable(); 

print("Komprimieren"); 

/»Komprimieren*/ 

cbit=contr=0; 

while((b=getb(fpi))!=EOF){ 

/»Dem Zeichen entsprechendes Byte aus der 
Kodiertabelle hohlen*/ 
c=statl[b]; 

/»Dem Zeichen entsprechendes Bitmuster suchen 
und in Datei schreiben*/ 
codsearch(c); 

fclose(fpi); 
fclose(fpo); 


/»Suchen des Bitmusters fuer jedes Zeichen 
und dieses in ein Byte schieben, wenn dieses 
vollstaendig ist, Ausgabe in eine Datei*/ 
codsearch(b) 
int b; 

{ 

int c, max; 

char buff[9]; /»Arbeitspuffer*/ 
max=anz ( b]; 

mbits(&bits[b*9],buff) ; 
c=0; 

/»Zaehlung der Bits fuer die Bitkombination 
eines Zeichens*/ 
while (c++- !=max){ 

shftb(buff,&byte); 

/»Wenn ein Byte vollstaendig ist - Ausgabe 
in die Datei*/ 
if (cbit++ ==7){ 

/♦Ausgabe eines Punktes fuer jeweils lkB*/ 
if(contr++ ==1024){ 
putchar( 
contr=0; 

putb(byte,fpo); 
cbit=0; 

) 

) 

/»Durchsuchen des Huffmantrees*/ 
decsearch(byte) 
char »byte; 

{ while(cbit++!=8){/*Zaehler fuer 8Bit = lByte*/ 
if (shr(byte)==l) trpos=bhigh [ trpos]; 
eise trpos=blow [ trpos]; 
if(blow[trpos]==0) { 
return 1; /»Zeichen gefunden*/ 

} 

} 

cbit=0; 

return 0;/»Zeichen nicht gefunden*/ 

) 

/»Erstellung des Huffman-Trees zur 
Dekomprimierung*/ 

mktree() 

int p,c,b; 
char »tabl; 

blov;=alloc(MAXL); /»Feld fuer O-Richtung*/ 
bhigh=alloc(MAXL);/*Feld fuer l-Richtung*/ 
tabl=alloc(256) ;/»Feld fuer Charactertabelle*/ 

c=0; 

/»Einlesen der Charactertabelle*/ 
while(c!=256) 

tabl [c++ ]=getb(fpi); 
c=p=b=0; 

/»Erstellung der Wurzel*/ 
while(c!=14){ 

blow(p]=++c; 

bhigh[p++]=++c; 

/♦Erstellung des Baumes*/ 
while(b!=256){ 
blow(p]=0; 

/»Zuweisung der Werte fuer die Blaetter*/ 
bhigh[p++]=tabl[b++ ] ; 
blow[p]=++c; 
bhigh[p++]=++c; 
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} 


/♦Erstellung der Tabelle zur Zuweisung 
der Bitfolgen*/ 
mktable( ) 

int c,o[ 4 ],x,xanz,ind; 
char buff[9]; 

bits=alloc (MAXTBL+1 ) ;/*Feld fuer Bitfolgen*/ 
anz=alloc(512);/*Feld fuer Bitbreiten*/ 
c=0; 

while(c!=MAXTBL+1) / * Loeschen*/ 
bits[c++]=0; 

/♦Anfangswerte der Tabelle, 
jede Bitfolge hat eine Laenge von 9 Byte*/ 
bits[0]=0; 
bits[9 ]=2 ; 
bits[18]=4; 
bits [27]=6 ; 

anz[ 0 ] =anz[ 1 ] =anz[ 2 ] =anz[ 3 ] =3 ; 
c=4; 
x=0 ; 
xanz=4; 

/♦Anfangswerte fuer den Feldindex*/ 
o[0]=0; 

o(i ]=9; 

°[2)=18; 
o[3]=27; 
while(c!=256 ) { 

ind=c*9; /*9 Byte Bitfolge*/ 

/♦Kopie der vorhergehenden Bitfolge an 

die neue Position*/ 

mbits(&bits[ o [ x ] ],Sbits [ind] ); 

/♦Erstellung der Bitlaenge*/ 
anz[c++]=xanz; 

/♦Index merken*/ 
o[x++]=ind; 

if(x==4){ /* 4 Bitfolgen mit 

gleicher Laenge */ 

x= 0 ; 

xanz++; 

/♦Erstellun der neuen Bitfolge*/ 
bits r ind]=bits [ ind] + 1;/*letztes Bit 

setzen*/ 

shft(&bits[ind ] );/*Linksverschiebung lBit*/ 

} 

x= 0 ; 

/♦Bitmuster wenden, 
d.h. Byte 1 wird zu Byte 8*/ 
while(x!=256){ 
ind=9*x; 

mbits(Sbits[ind],buff); 
c=0; 

while(c! =9){ 

bits(ind+c]=buff[8-c++] ; 

} 

c=0; 

/♦Vornullen bis auf die zum Bitmuster 
gehoerigen entfernen*/ 
xanz=7 2-anz[x++]; 
while(c++ !=xanz ) 

shftl(Sbits [ ind ] ); 

) 


/♦Kopie eines Bitfeldes(=9 Byte) von s nach d*/ 

mbits(s,d) 

char *s,*d; 

{ 

mt c; 
c=0; 

while(c!=9) 

d[c]=s[c++]; 

} 

/♦Assemblerroutinen*/ 

#asm 

;Linksverschiebung des Bytes auf der Adresse adr 
;um ein Bit - return 1 wenn das aus dem Byte 
»•geschobene Bit gleich eins ist 

;shr(adr) 

;char *adr; 


QSHR: 

OR A 
SLA (HL) 


;CY=0 



JR C,MSHR 

LD HL,0 ;return 0 

RET 
MS HR: 

LD HL ,1 ; return 1 

RET 

; 9 Byte werden um ein Bit verschoben, 

; beginnend auf adrl, ueberlauf ende Bits werden 
;in das naechste Byte geschoben, das am Ende 
; ueberlauf ende Bit wird nach adr2 geschoben 

;shftb(adrl ,adr2) 

;char *adrl,adr2 
qshftb: 

;üebergabe der Argumente 
POP BC 
POP DE 
POP HL 
PUSH HL 
PUSH DE 
PUSH BC 
LD BC,8 
ADD HL,BC 
LD B,9 
OR A 
PUSH AF 
LSHFTB : 

POP AF 
RL (HL) 

PUSH AF 
DEC HL 
DJNZ LSHFTB 
POP AF 
LD A, (DE) 

RLA 

LD (DE),A 
RET 

;9 Byte werden um je 1 Bit verschoben, begonnen 
;wird mit 9. Byte, ansonsten wie unten 

;shftl(adr) 

;char *adr 

qshftl : 

POP BC 
POP HL 
PUSH HL 
PUSH BC 
LD BC,8 
ADD HL,BC 
LD B,9 
OR A 
PUSH AF 
LSHFTL: 

POP AF 
RL (HL) 

PUSH AF 
DEC HL 
DJNZ LSHFTL 
POP AF 
RET 

;shft(adr) 

;char *adr; 

qshft : 

;Uebergabe der Argumente 
POP BC 
POP HL 
PUSH HL 
PUSH BC 

;9 Byte muessen um je 1 Bit verschoben werden, 

; ein uebergelaufenes Bit wird in das naechste 
; Byte geschoben, begonnen wird mit dem l.Byte 
LD B, 9 
OR A 
PUSH AF 
LSHFT : 

POP AF 
RL (HL) 

;CY-Flag retten 
PUSH AF 
INC HL 
DJNZ LSHFT 
POP AF 
RET 
#endasm 
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Pascal-Kolleg 

Wozu Logarithmen gut sein können 

Was verbindet den Schneider CPC mit dein Joyce? Ganz klar: Das Betriebs¬ 
system CP/M, das auf beiden Rechnerfamilien zu Hause ist. Grund genug, 
sich in einer Artikelreihe mit der Software rund um CP/M zu beschäftigen. 
Zu den “ganz großen“ Anwendungen in der CP/M-Welt gehört Turbo 
Pascal. Dieser Beitrag ist den Mathe-Freaks unter den Pascalisten gewidmet: 
Es geht um IvOgarithmen. 


In Pascal gibt es keine eingebaute Re¬ 
chenart »Potenzieren«, nur die Grund¬ 
rechenarten stehen zur Verfügung. 
Schon eine so schlichte Problemstel¬ 
lung wie die Zinseszinsrechnung erfor¬ 
dert aber, daß eine Potenz berechnet 
werden muß, also ein Ausdruck der Ge¬ 
stalt a hoch b. Zur Erinnerung: a hoch b 
heißt, daß das Produkt aaa...a mit ins¬ 
gesamt b Faktoren gebildet wird. Zum 
Beispiel sind 3 hoch 4 = 3333 = 81 
und 2 hoch 16 = 65 536. Die Zahl a 
heißt »Basis«, und die Zahl b »Expo¬ 
nent«. 

Wie potenziert der Pascal-Programmie¬ 
rer? Er hat für diesen Fall entweder ein 
Referenzbüchlein parat, in dein die pas¬ 
sende Formel steht, oder er leitet sich 
diese Formel selbst schnell her. Und 
genau an dieser Stelle kommen Loga¬ 
rithmen ins Spiel. 

DerWitz bei Logarithmen ist: Ihre Ver¬ 
wendung reduziert die Komplexität von 
Rechnungen um eine Stufe. Was heißt 
das genau? Die elementarste Rechenart 
ist die Addition (+), danach folgt die 
Multiplikation (x), und an der Spitze steht 
das Potenzieren. Um nun zum Beispiel 
zwei Zahlen zu multiplizieren, werden 
einfach ihre Logarithmen addiert. Um 
eine Zahl in die dritte Potenz zu erhe¬ 
ben, wird ihr Logarithmus mit 3 multi¬ 
pliziert. Und so weiter. 

Um folglich die Potenz a hoch b zu be¬ 
rechnen, kann man den Logarithmus 
von a mit der Zahl b multiplizieren: 

ln(a b ) = ln(a)b 

Damit kennt man den Logarithmus der 
gesuchten Potenz, aber noch nicht die 
Potenz selbst. Um sie zu erhalten, muß 
man die Exponentialfunktion anwen¬ 
den: 

a" = exp(ln(a)b) 

Mathematisch gesprochen: Die Expo¬ 
nentialfunktion ist die Umkehrfunktion 
zum Logarithmus (ganz ähnlich gilt, 
daß das Quadrieren die Umkehrung des 
Ziehens der zweiten Wurzel ist.) 
Es ist nützlich, die folgenden Regeln zu 
kennen: 


(1) EXP macht aus Logarithmen nor¬ 
male Zahlen. 

(2) LN macht aus positiven Zahlen 
Logarithmen. 

(3) Erst LN und danach EXP: Jede 
positive Zahl wird in sich überge¬ 
führt. 

(4) Erst EXP und danach LN: Jede 
Zahl wird in sich selbst überge¬ 
führt. 

Aufgabe 1: 

Formulieren Sie eine Funktion Po- 
tenz(a,b:REAL):REAL, die zu zwei 
gegebenen Realzahlen die Potenz a 
hoch b berechnet. Der Leser könnte 
sich fragen, welchem Zweck dieses 
komplizierte Verfahren dienen soll, 
wenn doch eine Potenz auch durch fort¬ 
gesetzte Multiplikation berechnet wer¬ 
den kann. Die Antwort ist: Auch für 
gebrochene und für negative Zahlen b 
liefert die Potenzformel exp(ln(a)*b) 
sinnvolle Werte, während das explizite 
Ausmultiplizieren nur dann funktio¬ 
niert, wenn der Exponent b eine positi¬ 
ve ganze Zahl ist. 

Aufgabe 2: 

Welche Werte ergeben sich für a=625 
und b=0,25; a= 1024 und b=0,l; 
a = 36 und b=0,5; a=5 und b = -2? 
Mit gebrochenen Exponenten werden 
Wurzeln berechnet: zum Beispiel mit 
0,25 = 1/4 die vierte und mit 0,1 = 
1/10 die zehnte Wurzel. Mit negativen 
Exponenten wird der Kehrwert einer 
Zahl berechnet: zum Beispiel ist a hoch 
-2 = 1/a hoch 2. 

Aufgabe 3: 

Formulieren Sie eine Funktion Wurzel 
a:REAL;n:INTEGER): REAL, mit 
der die n-te Wurzel einer positiven Re¬ 
alzahl a berechnet werden kann. Nun 
ist das Kapitel Potenzieren mit diesen 
Bemerkungen noch nicht ganz abge¬ 
schlossen. weil die Basis a hier nur po¬ 
sitive Werte annehmen darf: Der Loga¬ 
rithmus einer negativen Zahl ist näm¬ 
lich nicht definiert, und daher kann bei 
Benutzung der angegebenen Formel 


die Potenz einer negativen Basis nicht 
gebildet werden. 

Logarithmen dienen natürlich noch an¬ 
deren Zwecken als dem Potenzieren. 
Als weiteres Beispiel für ihre Nützlich¬ 
keit wird jetzt eine Formel für die Grö¬ 
ßenordnung einer positiven Zahl x, das 
heißt die Anzahl der Stellen vor dem 
Dezimalkomma, vorgestellt. Die For¬ 
mel selbst soll aus Platzgründen nicht 
hcrgeleitet werden: 

Groesse: =TRUNC(ln(x)/ln(10)) +1 

Die Kombination ln(x)/ln(10) wird 
häufig gebraucht, so daß es bequem ist, 
sich eine eigene Funktion Log zu defi¬ 
nieren. 

FUNCTION Log(x:REAL) :REAL; 

BEGIN 

Log := ln(x}/ln(l0) 

END; 

Die Funktion Log liefert die “dekadi¬ 
schen“ Logarithmen, für die gilt: 
log(10') = x (deka ist griechisch und 
heißt zehn). Als Anwendung kann eine 
Funktion Multiplikation formuliert 
werden, in der geprüft wird, daß kein 
Realüberlauf cintritt: 

FUNCTION 

Multiplikation(x,y:REAL):REAL; 

CONST MaxReal = 1E38; (Beisp. für 

rnax. zul. Realzahll 

BEGIN 

IF Log(x)+Log(y) < =Log(MaxReal) THEN 
Multiplikation := xy 
ELSE Multiplikation := 0 
END; 

Der Vorteil ist hier: Die Summe 
Log(x) + Log(y) ist auf jeden Fall zu¬ 
lässig, wenn x und y erlaubte Realwer¬ 
te enthalten, während das Produkt xy 
zu groß sein könnte. Ohne Verwen¬ 
dung der Logarithmen wäre es schwer, 
xy auf Überlauf zu testen, ohne diesen 
Überlauf eventuell schon zu verursa¬ 
chen, was zum Abbruch des Pro¬ 
gramms führen würde. Mit Logarith¬ 
men können also auch “übergroße“ 
Zahlen behandelt werden. 

Aufgabe 4: 

Wieviel Stellen hat die Zahl 1000! = 
1 2 3 ... 1000 ? Wieviel Stellen hat 
9999? 

Ausführliche Potenzfunk¬ 
tion in Pascal 

Hier nun die Berechnung einer Potenz 
in Pascal. Es sind mehrere Sonderfälle 
zusätzlich zu berücksichtigen: 

a) 0" ergibt 1 (eine nicht völlig einhel¬ 
lig geteilte, jedoch weithin akzeptierte 
Festsetzung); 

b) 0* ergibt 0; 
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Kleinanzeigen 


Biete Software 


Für 6128: Guild of Thieves, Time 
& Magic, Pink Pant., Murd. on the 
Atlantic, Know, Sil. Dreams, zus. 

DM 75. Copyshop DM 20. FiBu + 
DRGraph zus. DM 75. + Port + NN. 
T: 051 30-3896 


PD - Software -,65 bis 2,- für 
IBM/Kompat. Kat.Disk. gratis. 

M. Karbach - Remscheider Str. 18 
5650 Solingen 1 G 


8000 PD & Shareware auf Lager 
ab DM 0,65! 

KATALOGDISKETTE 5,25". KOSTEN¬ 
LOS SONDERANGEBOT-DER PC- 
KAUFMANN für DM 685, EDV COM¬ 
PUTER PD EXPRESS 
Willi Stern, Kennedystr. 38 
8039 Puchheim, Tel,: 0 89-8 00 25 45 
FAX: 089/80 8912 G 


Neue PD Softwarel Gratiskatalog bei 
Vicom Heringloh/Scholz 
Florastr.14,4100 Duisburg G 


Biete Hardware 


CPC 464 Farbmonitor, Diskettenlauf¬ 
werk + div. Bücher, Zeitschr. u. Disket¬ 
ten, VB 650 DM, TEL: 06542/52 55 ab 
18:00 Uhr 


CPC6128 + GT65 + REC. + JOYST. 
+ DRUCK. PANAS.KX-P1081 + 
SOFTW. U.A. TEXTVERARB., DATEI- 
VE RW., TAB. KALKÜL. + SPIELE + 
LEERDISK. VB DM 980. TEL 
06466/7282 AB 18.00 UHR 


CPC 464 M.GT65 4- SPIELE + BUCH 
+ JOYSTICK DM 350 
FATIH-ALTIN, FRIEDRICHSTR. 25 
5000 KÖLN 90 PORZ 


Schneiderware: V2495 DM. 

Uhr 70 DM, Netzteil mit Trafo 125 DM, 
CPC/PC Intern. 04/85-12/89 n. Geb. 

P. Helfgen, 06842/6834, 21-22 Uhr 


CPC664 m. 2LW FD1; Farbmon CTM 
644; DMP2000 Drucker; Joystick. 
Div. Software u. Bücher; 25 Disks 
Org. Asm + Firmware Handbuch 
Neupr. 3000,- DM, umständeh. 

1000,- DM, nur komplett, ab 17 Uhr 
Tel.: 02045/6523 


CPC 6128, GT65, 3" + 3,5" LW, RS232, 
30 Disks, Orig., Text, Util's, Spiele, 

1 Kiste Literatur, Zeitschr. VB 400, - DM 
Tel.: 040/4 20 80 24 abends 


PCW9512 + TYP-DRU + 
EINZ.BL.FEEDER LO/MAILSPE/FILE 
2.29 + DTP + MOUSE 24P-DR + 
TOOLS + LITERAT. + DISK, ECT 
VB: 998,-. 04721-24426 AB 18:00 


AMSTRAD ALT 386er Laptop 
VGA-LCD Garantie neu 
Preis VB 

Tel. 04943/2414 


PCW 8256 + 2. Laufw. + Laufw. 5,25" 
+ Mouse + 10 Software + Bücher + 
div. Disket. VB 1000,- DM. 

Tel. 030/8 23 79 81 


Zu verkaufen Amstrad CPC 210.-; 
Laufwerk DDI-1 390.-; Drucker 
DMP 2160 250, -; alle Geräte 1 1/2 Jahre 
alt, einz. zu verkauf., für Einsteiger 
gut geeignet, versch. Programme u. 
Bücher, VB, Tel. 06 41/49 35 87 abends 


CPC 464/Grün- & Farbmon./2 Disk.LW/ 
Epson LX 90m. CPC-& Centr. interface/ 
M P2/M ultiface 2/Textomat/Datamat/ 
Discovery/Discology/Copyshop/Data- 
boxen/Spiele/CPC intern. 85-88, Son¬ 
derhefte & Bücher gegen Gebot, 

Tel. 05673/2446 


CPC 6128 + GT65 + Disk- + Kas. 
Softw. + Liter, + Leerdisk., VB 1000,- 
DM, Tel. 0981/94770 ab 18 Uhr 


Diskettenlaufwerk DDI-1 VB 200 
DM und Spiele. Liste anfordern 
bei F. Weiß, Augsburgerstr. 8, 

8081 Althegnenberg, 08202/1592 


Suche Software 


PCW 8512: dBASEII, MULTIPLAN, 
TURBO PASCAL, FORTRAN, Chiffre 
91/00157 CPC 


CPC-Schneider-lnt. Magazine ab 
4/86 (oder älter) bis 12/86 
E. JETTEL, A-5662 GRIES/St.G. 65 


Suche Hardware 


SUCHE CPC 464 + FLOPPY U. 
DRUCKER, FENDER, AM GRÜN¬ 
LAND 1,0-2200 Greifswald 


JOYCE 8512: 

ORIGINAL-DRUCKE, SEHR GUT ER¬ 
HALTEN; ECHTZEITUHR, INKL. 
ADAPT. CENTR. SCHNITTST. Chiffre 
91/00156 CPC 


Suche CPC + Zubehör, R. Wartmann, 
Feldstr, 2A, 0-4601 STRAACH, Tel 205 


JOYCE-SCHNITTSTELLE RS 232 
KOSTENGÜNSTIG GESUCHT, 
TEL: 030/3444777 


Suche für CPC 464 - DD1 3" LW 
mit Controller. 0271/332658 ab 17 Uhr 


Verschiedenes 


Verk. PC-INTERN. 1. Heft 3/85 bis 
12/89 kompl.; DM 100,-; 0561/828914 


FARBBÄNDER: DMP 9,-/JOYCE 
12.PCW9512 9,-/NLQ401 9,- DISKET¬ 
TEN: 3"MAXELL CF-2 10 St. 63, ETI¬ 
KETTEN: 100 St. 70x70 6,400 St. 
89x36 7,50 INFO ANFORD.! 

W. KUHN, EDV-ZUBEHÖR, HES- 
SENSTR. 7, 6340 DILLEN BURG 2, TEL./ 
FAX 02771-32688 BTX: 'KUHN# G 


Disketten-, Datenkonvertierung 

JOYCE, CPC auf MS-DOS, ATARI 
Bernd Drost, Schulstr. 67, 6382 
Friedrichsdorf, Tel, 0 61 75/6 04 G 


■**«■*****■»#****•*•*#***»**■*■*•**»##* 

* Wir räumen unser Lager für * 

* CPC-Zubehör I * 

*****•*•*•*•*#**•**•*•»#****■*■**#*»»*»* 

SOFTWARE (nur Disk) ab 6,- DM, 
ca. 1000 Bücher ab 4,00, Hardware 
(z. B. GT65 49, - DM), Zubehör und 
vieles mehr. Bestandsliste anfordern! 

* Wir liefern nur, solange * 

* der Vorrat reicht. * 

CLOOTS-Datentechnik 

Kirchstr. 15, Tel: 02451-4660 
W-5132 Übach-Palenberg G 


Club 


USER-CLUB für JOYCE-Anwender! 
Info gegen Rückporto von: 
JOYCE-USER-CLUB c/o Je. Berghof, 
Roseggerstr. 5, 5600 Wuppertal 2 


Der CPC-Userclub ist da! Überregional 
und unabhängig ! Für alle CPC-Rech- 
ner bieten wir z. B. mtl. eine Clubzeit¬ 
schrift. Unverb. Info über alle Leistun¬ 
gen gg. 0,60 Porto von R. Knorre, 

Postf. 2001 02, 5600 Wuppertal 
Stichwort CPC 


Der Userclub für alle CPC-Besitzer ist 
da! Mit monatlicher Zeitschrift, Hotline 
und vielem mehr. Info gg. 0,60 
Rückporto von R. Knorre, 

Postfach 200102, 56 Wuppertal 2 


USER-CLUB für Amstrad/Schneider 
PC 1640/1512-Anwender sucht noch 
Mitglieder. Informations- und Erfah¬ 
rungsaustausch stehen an erster 
Stelle. Info kostenlos bei Willy Stern, 
Kennedystr. 38, 8039 Puchheim. 

Tel. 089/8002545 
Anfragen auch unter BTX 
0 89/80 8912, es wird gleich geant¬ 
wortet, 



Berlin 


Computerei y 



Einträge möglich minde¬ 
sten 6 x innerhalb eines 
Insertionsjahres. 


Eintragungen im Händler¬ 
verzeichnis, nach Städten 
geordnet, kosten je mm 
Höhe 6,- DM bei einer 
Spaltenbreite von 58 mm. 


Löhne/Ostwestfalen 


Cnmautar- ?. Scdwäismun * HCiüuoulsnUrtl- 
■WSIIWD SCHNEIDE’ {. VJEJEX ftamuhirdet i. SERVICE- 
CENTRALE. 31ml Ccmpiiter.Cacl«,'■■jlpl'üifcSÄjaeiai 
ILV Piper eis - Qscs 

Frilz OäERMBfR COMPUTER-TEIEFAX-BEX-Hif-VIDtO-IV- 
I IJK'EPSON- 1AND0K-H^HER-SEIKO-OK:■ S7.P-LOCO-2lc 
am BälWtOt-BindU Strafe 20*4972 LÖHNE • -Tel. 0 573? 6179» A6 


Nähere Informationen: 
DMV-Verlag 
Sylvia Stephani 
Telefon (0 56 51) 8 09-380 
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c) bei ganzzahligen Exponenten y kön¬ 
nen beliebige Werte der Basis x benutzt 
werden (also auch negative), wenn die 
Multiplikation explizit ausgeführt 
wird; ist der Exponent negativ, dann 
muß der Kehrwert gebildet werden; 

d) eine Potenz kann leicht größer sein 
als die maximal darstellbare Realzahl. 
Diese liegt in Turbo Pascal bei 1E37. 
Daher ist ein entsprechender Test erfor¬ 
derlich. der Realüberlauf vermeidet. 

Diese Sonderfälle werden in der darge¬ 
stellten Funktion berücksichtigt. Ein 
Abbruch des Programms wegen unzu¬ 
lässiger Parameter ist damit ausge¬ 
schlossen. An den aufrufenden Pro¬ 
grammteil wird allerdings nur der be¬ 
rechnete Wert übergeben, im Fehler¬ 
fall also 0. Unter Umständen ist es aber 
angebrachter, an diesen Programmteil 
zwei Werte zu übergeben: neben dem 
berechneten Funktionswert auch einen 


Fehlercode. Nun ist es in Pascal aber 
leider nicht möglich, als Funktionswert 
mehr als einen einfachen Datentyp zu 
übergeben (manche Implementationen 
erlauben, abweichend von der Norm, 
als Funktionswerte Strings.) 

Als Alternative bietet sich die Formu¬ 
lierung als Prozedur an, bei der die 
zwei Weite als VAR-Parameter über¬ 
geben werden: 

PROCEDURE 3erechne_Pot 
(x,y:REAL; VAR Erg:REAL; VAR Fehler: 
INTEGER); 

Lösung zu Aufgabe 1: 

FUNCTION Potenz(a, b: REAL): REAL; 

ESGIN Potenz := exp(ln(a)*b) 

END; 

Lösungen zu Aufgabe 2: 

5; 2; 6; 0.25 
Lösung zu Aufgabe 3: 

FUNCTION Wurzel(a:REAL; N: INTEGER):REAL; 


BEGIN 

Wurzel := exo{ln(a)/n) 

END; 

Lösungen zu Aufgabe 4: 

Das folgende Programm berechnet die 
gesuchten Werte. 

PROGRAM Grosse_Zar.len; VAR 
i 

: INTEGER; 

LoglOOOFak 
: REAL; 

FUNCTION Log(x: REAL) : REAL; 

... { Definiert wie oben \ 

BEGIN 

LoglOOOFak:=0; 

FQR i: =1 TO 1000 DO 
LoglOOOFak :=Logl000Fak+Log(i); 

Write( 1 1000! hat’,TRUNC(LoglOOOFak)+l, 
•Stellen,’); 

WriteLn( '99 hoch 99 hat 1 , 

TRUNC(Log(99)*99) +1» 1 Stellen.') 

END. 

Resultat: 1000! hat 2568 Stellen, 99 gg 
hat 198 Stellen. 

Wolfgang J. Weber/jg 


{********* **************************************** 
{ Potenz.Pas 


{ Berechnet die Potenz x hoch y, sofern diese } 

{ berechnet werden kann } 

{ } 
{ (c) by Wolfgang J. Weber } 

{ & CPC International } 

{ Adaption von Jörg Gurowski & Ralf Schößler } 

{ fuer Turbo Pascal ab Version 3 } 


| ********************************************************** | 
Program PoTest; 

Var x, 

help : Real; 

Function Potenz ( x , y : Real ) : Real; 

{ Berechnet die Potenz x hoch y, 

sofern diese gebildet werden kann } 

Const MaxReal = iE37; { Beispiel fuer maximal 

zulaessige Real-Zahl } 


Var Zaehler : Integer; 
Produkt : Real; 


Begin 

It x = 0 Then 

T.f y - 0 Then Potenz : = 
Else Potenz:=0 


{ Sonderfall: Basis=0 ) 

l{ Sonder-Sonderfall : 

0 hoch 0 } 


Else If Abs( Ln ( Abs ( x ) ) * y ) > 

Ln ( MaxReal ) Then 

Potenz:=0 { Ergebnis zu klein oder zu 
gross } 

Else If y = Trunc( y ) Then { Exponent 

ganzzahlig } 


Begin 

Produkt :=1; 

For Zaehler :=l To Abs ( Trunc ( y ) ) Do 
Produkt : ^Produkt * x; { Beachte: x hoch 0 

ergibt stets 1 } 

If y<0 Then Produkt :=1 / Produkt; { Exponent 

negativ } 


Potenz:-Produkt 
End 

Else If x <- 0 Then Potenz:=0 { kein sinnvolles 

Ergebnis } 

Else Potenz:=Exp ( Ln ( x ) * y ) { Normalfall } 



End; { Potenz } 


Begin { PoTest } 

WriteLn; 

Write ('>>>>>>>> Programm zur Berechnung einer'); 
WriteLn( ' beliebigen Potenz <<<<<<<<'); 

WriteLn; 

While (1 = 1) Do 
Begin 

Write('x: '); 

ReadLn(x) ; 

Write('y: '); 

ReadLn ( y ); 

WriteLn; 

Write ('x hoch y ergibt '); 

Help:=Potenz(x ,y); 

If ( Help = ü ) Then 
WriteLn('einen Fehler') 

Else 

WriteLn (Help:37:6); 

End; 

End. { PoTest } 

{ Ende Potenz.Pas ) 
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bereits erfolgt und jedes Merkmal in ei¬ 
nem Datenvektor so erfaßt ist, daß die 
Daten in “vec.value“ und die Häufig¬ 
keiten in “vec.gew“ stehen. Mehrere 
Datenvektoren bilden dann einen "AR- 
RAYf] OF Datenvektor“. 


Statistik in Pascal 


Vom Durchschnitt zum Überblick 

Den Lieblingsspruch meines Deutschlehrers im Ohr: »Es wird nirgendwo so¬ 
viel gelogen, wie vor der Wahl, nach der Jagd und in der Statistik «, trat ich 
vor einigen Semestern mit gemischten Gefühlen und einer gehörigen Portion 
Skepsis einem Professor der Statistik entgegen. Aber Fehlanzeige! Ich mußte 
mich überzeugen lassen, daß Statistik nichts anderes als reine Mathematik 
ist. Ein Genuß für .Ylathematikpuristcn! 

Aber keine Angst vor Fachausdrücken wie “Varianzen“ und “Kovarianzen“ 
Die vorliegende Anleitung zeigt, wie statistische Methoden in PASCAL pro¬ 
grammiert werden und gibt den Interessierten darüber hinaus die Möglich¬ 
keit, das Programmpaket nach eigener Vorstellung zu erweitern. 

Die nötigen Hilfsmittel, die einen Ausflug in die Tiefen der Statistik erleich¬ 
tern, sind im folgenden übersichtlich dargestellt. Alles beginnt zunächst mit 
der Frage: 


Was ist Statistik? 

Statistik in der Praxis bedeutet Daten- 
auswertung mittels mathematischer 
Methoden entweder zum Zwecke der 
Dokumentation (um zu neuen Erkennt¬ 
nissen über bekannte Daten zu gelan¬ 
gen) oder zum Zwecke der Vorhersage 
(um aus bekannten Daten Aussagen 
über unbekannte Daten machen zu kön¬ 
nen; zum Beispiel Trendanalysc oder 
Qualitätskontrolle). 

Dies sind zwar unterschiedliche Aufga¬ 
benstellungen, deren Lösungsansätze 
auf teilweise recht aufwendigen mathe¬ 
matischen Verfahren beruhen, die aber 
letztlich alle auf die gleichen Teilaufga¬ 
ben zurückgeführt werden können: 

- Mittelwertberechnungen 

- Abweichungen (Varianzen) 

- Abhängigkeiten (Kovarianzen) 


— und Wertberechnung der Standard¬ 
verteilungen. 

Damit steht das Grundgerüst der ele¬ 
mentaren Statistik, auf das auch die 
kompliziertesten Tests immer wieder 
zurückgreifen. 

Eine “statistische Einheit“ ist sachlich, 
räumlich und zeitlich eindeutig ab- 
grenzbar und kann verschiedene Merk¬ 
male besitzen. So kann zum Beispiel 
die Einheit “Mensch“ auf Merkmale 
wie Beruf oder Alter untersucht wer¬ 
den. Die konkrete Jahreszahl ist dann 
die Ausprägung des Merkmals “Alter“. 
Stellt man die verschiedenen Ausprä¬ 
gungen in einer Matrix so zusammen, 
daß jedem Merkmal die möglichen 
Ausprägungen und die beobachtete An¬ 
zahl zugeordnet werden, so erhält man 
eine “Häufigkeitstabelle“. 

Das Programm “Pascal-Statistik“ 
geht davon aus, daß diese Zuordnung 


Deskriptive Statistik 

Einen ersten Einblick über die Struktur 
der Daten eines Vektors bieten die La¬ 
geparameter. Dazu zählen unter ande¬ 
rem der Mittelwert 

arithm.: x.„ i = ^ x ' 
n 

die Varianz als Quadrat der Abwei¬ 
chungen der einzelnen Weite der Da¬ 
tenreihe von x ari : 

_ CCxr - x ari x Exj) 
n—1 

die Standardabweichung j/(a 2 ), die ge¬ 
genüber der Varianz den Vorteil hat, 
daß sie die gleiche Dimension wie die 
Beobachtungswerte besitzt und der Va¬ 
riationskoeffizient v=s/x ari , der das 
Verhältnis zwischen Mittelwert und 
Standardabweichung verdeutlicht, wäh¬ 
rend die Spannweite die Differenz zwi¬ 
schen größtem und kleinstem Aussprä- 
gungswert ausdrückt. 

Die Erweiterung der Varianz auf zwei 
Datenreihen liefert eine Kovarianz, die 
analog der Varianz definiert ist: 

cov (x,y) = ^ X| ~ x ^(y i ~ y»") 

Ist die Kovarianz Null, so sind X und Y 
unkorreliert. das heifyt sie hängen nicht 
voneinander ab. Da diese Aussage je¬ 
doch nicht umkehrbar ist, gibt es allge¬ 
mein für normalveiteilte Zufallsvaria¬ 
blen den (Pearson’schen) Korrelations¬ 
koeffizienten, der auf das Intervall 
f—1,1] normiert ist. Corr(x,y)=-l 
= = = > x ist von y linear abhängig und 
umgekehrt. Rechenformel: cov(x,y)/s, x s y . 
Allerdings sollte man sich vor Schein¬ 
korrelationen hüten und darauf achten, 
daß nicht vielleicht beide Merkmale 
mit einem dritten korrelieren und so 
verzerrte Aussagen liefern. 
Scheinkorrelatione werden ausgeschal¬ 
tet, indem man eine bipartielle (Abhän¬ 
gigkeit zwischen X und Y, ohne Be¬ 
rücksichtigung einer Abhängigkeit von 
X mit U und Y von V), partielle (Ver¬ 
nachlässigung einer gemeinsamen Ab¬ 
hängigkeit der X und Y von U) oder 
multiple Korrelation (X hängt von p 
verschiedenen Zufallsvariablen ab) be¬ 
rechnet. Eine Zufallsvariable X ist eine 
Funktion, die jedem möglichen Aus- 
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gang eines Zufallsexperiments eine 
reelle Zahl x zuordnet. Kann man für 
den Eintritt eines bestimmten Ausgangs 
Wahrscheinlichkeiten angeben, so er¬ 
hält man eine Wahrscheinlichkeitsfunk¬ 
tion f(xlX) für die Zufallsvariable X. 
Die Verteilungsfunktion F(xlX) einer 
Zufallsvariablen gibt dann an. wie groß 
die Wahrscheinlichkeit ist, als Ausgang 
des Experiments eine reelle Zahl < x 
zu erhalten. 

Beispiel: 

Beim Experiment “Würfeln“ gibt es als 
möglichen Ausgang das Fallen der Zah¬ 
len 1,2,3,4,5 und 6. Jede dieser Zahlen 
tritt mit der Wahrscheinlichkeit 1/6 ein. 
f(X)=l/6 für x=l....,6 ist dann die 
Wahrscheinlichkeitsfunktion für das 
Würfelspiel. 

Die Verteilungsfunktion: 


F(X) = 


0 für x < 1 
1/6 fürx<2 
2/6 für x < 3 
3/6 fürx<4 
4/6 für x < 5 
5/6 fürx<6 
I für x < 6 


Kann X nur einzelne (abzahlbar viele) 
Werte annehmen, so spricht man von 
einer diskreten Zufallsvariablen, ande¬ 
renfalls ist X stetig. 

Vergleichbar mit dem Mittelwert einer 
konkret vorliegenden Datenreihe exi¬ 
stiert für eine Zufallsvariable der Er¬ 
wartungswert E(X) als “Mittelwert" 
der Ergebnisse der noch durchzufüh¬ 
renden Experimente. 

Für diskrete Zufallsvariable ist 
E(X) = Dxif(x,), für i=l..n, 

Var(X)= EXi 2 f(Xi) - (E(x)) 2 , 

während für stetige Zufallsvariable die 

Integrale 


+ oo 


E(X) = 

— oo 


VAR(X)= 
— 00 


x f(x) dx 


+ GO 


x 2 f(x) dx - (E(x)) 2 

berechnet werden müssen. 


Standardverteilungen 

Mit Hilfe der Verteilungsfunktion sind 
Zufallsexperimente eindeutig darstell¬ 
bar und einem Experiment oder einer 
Stichprobe kann eine Verteilungsfunk¬ 
tion F(xlX) so zugeordnet werden, daß 
sie Werte für x liefert. Dabei gelten fol¬ 
gende Regeln, wobei P die Wahrschein¬ 


lichkeit für den Eintritt von x angibt: 
Kann ein Experiment nur zwei mögli¬ 
che Ausgänge, '0’ und T, haben, so 
handelt es sich um eine Bernoulli-Ver- 
teilung: 


ber (xlP) = 


1-p für x=0, 
P für x=l. 

0 sonst 


E(X)=P, Var(X)=P(l-P), diskret. 

Die n-fache Ausführung eines Bernoulli- 
Experiments führt zur Binominal-Ver- 
teilung: 


bin (xln,P)= 



-P* (1-P)"-* 


sonst 


E(X)=nzP, Var(X)=nzPz(l-P), diskret. 


Strebt n gegen oo, so geht die Binomi- 
nal-Verteilung in die Poisson-Verteilung 
über, wobei l=nP ist: 


poi (xll)= 


r JV> für X6N>0 
x! 

- 0 sonst 


E(X)=1, Var(X)=l, diskret. 

(Als Faustformel gilt in der Praxis: 
n x P<10 und n>1500 x P ==> 

poisson.) 

Direkt aus der Poisson-Verteilung resul¬ 
tiert die Exponential-Verteilung, die bei 
Tests auf Lebensdauererwartung eine 
große Rolle spielt. Sind zwei Ereignisse 
poisson-verteilt, so ist der Abstand auf¬ 
einanderfolgender Ereignisse mit glei¬ 
chem 1 exponential-verteilt: 


expo(xl) = 


0 für x<0 
l-e H * für x>0 


E(X)=1/1, Var(X)=l/l 2 stetig. 

Wird einer endlichen Menge jeweils ein 
Element entnommen und nicht zurück¬ 
gelegt, so verringert sich die ursprüng¬ 
liche Menge immer mehr. Gleichzeitig 
ändert sich P. Dies beschreibt die hy- 
pergeometrische Verteilung: 

rMi r N—Mi 
I- x 1 f n-x J 


hyp (xlN.M,n) = 



_ 0 sonst 


E(X) = n(M/N) = nP, diskret, 

Var(X) = nP(N—n)/(N—1), 

wobei N die Gesamtanzahl, M die An¬ 
zahl der Elemente mit der interessie¬ 
renden Eigenschaft und n die Anzahl 


aller Experimente ist. Die wichtigste 
Verteilung ist die Normalverteilung: 


nor(xlu.cr 2 ) 


exp ( 


-(x-u- x 
) 2 ' 
2 o 2 


o ]/(27T) 


Ihre Bedeutung ergibt sich daraus, daß 
sich für n gegen co alle Verteilungen 
der Normalverteilung annähern (zen¬ 
traler Grenzwerlsatz). Ist die Grund¬ 
verteilung unbekannt, aber n hinrei¬ 
chend groß, kann eine Normalvertei¬ 
lung vorausgesetzt werden. 

E(X)=u und Var(X)=u 2 sind direkt aus 
der Dichtefunktion ablesbar. 

Für u=0 und <r 2 = l ist z=(x-u)/ct stan¬ 
dard-normal-verteilt, was in der Praxis 
bedeutet, daß für beliebige u und a nur 
eine Verteilung nötig ist, wenn die vor¬ 
handenen Daten so standardisiert wer¬ 


den, daß u=0 und ct 2 =1 gilt. 

Die noch folgenden drei Verteilungen 
sind insbesondere für Stichproben 
wichtig. 

Es gilt: Sind X|,...,x v standard-normal- 
verteilte Zufallsvariablen, so ist y=Ex, 2 
für x>0 chi-vcrteilt mit v “Freiheits- 
graden“: 


X<v-2)/2 g -x!2 

chi(xlv.P)= 2 ^~ -T(W 2) 
E(X)=v, Var(X)=2v, stetig. 


"A(x) ist die Gamma-Funktion, mit der 
Funktionalgleichung: 

•\(x) = xx^(x-l) 
oder als Integral: 





+ oo 

e~‘ 


t xH dt. 


Sind Yi und Y 2 mit f, und f 2 Freiheits¬ 
graden chi-verteilt, so ist die Zufallsva¬ 
riable 

v Y,/f, 


F(ischer)-vertcilt mit f,, f 2 
F(xlf„f 2 ,P)= 

fi<f|Q) f 2 <fra> A((f|+f 2 )/2)x f i" 2 -‘ 

A(f,/2) (fi/2) (xf,+f a )( f .+6) /2 


E(X)=f 2 /(f 2 —2) 
Var (X) = 


2f 2 2 (fi +1 2 —2) 
f.(f 2 -2) 2 (f 2 -4) 


Ist hingegen nur Y chi-verteilt und X 
standard-normal, dann ist T=X/|/(Y/v) 
student-verteilt mit v Freiheitsgraden: 
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CPC-Anwendungen 

Die bewährten und praxiserprobten CPC-Anwendungsprogramme aus dem 
DMV-Verlag bringen Ihre CPC-Hardware richtig in Schwung: Sie erzielen 
hervorragende Ergebnisse in kürzester Zeit 


ConText CPC 

Professionelle Textverarbeitung 

für alle CPC 

Lassen Sie Ihren CPC nicht verstauben! Mit ConText 
CPC können Sie ein Anwendungsprogramm erwerben, 
das für Textverarbeitung eine überzeugende Leistung 
bei einfacher Bedienung bietet. Die ausführliche deut¬ 
sche Anleitung macht auch Computerlaien nach kürze¬ 
ster Zeit eine Textverarbeitung per Computer möglich! 


Mit ConText CPC macht das Schreiben richtig Spaß: 

• Einfügen. Fließtext, Blockformatierung und Kopieren auf 
Tastendruck • 25 KByte Textspeicher, ausreichend für min¬ 
destens fünf DIN-A4-Seiten • Mehrspaltige Texterstellung 
und Kopieren für besondere Aufgaben • Textblöcke von 
Diskette oder Kassette jederzeit im Text zu plazieren 

• Drucken im Hintergrund, während Sie weiter an Ihren 
Texten arbeiten • Echtbild-Darstellung der Schriftarten 
»Vergrößert« und »Unterstrichen« • In das Programm Con¬ 
Text CPC integrierter Taschenrechner und Kalender 

• Variable Druckeranpassung mit Einstellmöglichkeit in 
Tabellenform 

ConText CPC ;l 

Hervorragend in Preis und Leistung dm 59,- 


Turbo-DATA-CPC 

Volldampf in der Dateiverwaltung 


Brauchen Sie ein neues Adreßbuch oder Telefonver¬ 
zeichnis? Müssen Sie Ihre Sammlungen von Briefmar¬ 
ken, Schallplatten, Dias oder anderen Schätzen sortie¬ 
ren? Alles kein Problem mitTurbo-DATA-CPC, der uni¬ 
versellen Dateiverwaltung für alle CPC mit Disketten¬ 
laufwerk, mit der Sie Überblick und Ordnung in Ihre 
Daten bringen. 

Datenverwaltung komplett mit Turbo-DATA-CPC: 

• Universell durch veränderbare Ein- und Ausgabemasken 

• Blitzschnelle Suchfunktionen durch Indexfelder 

• Dateikapazität bis maximal 80 verschiedene Felder 

• Bis zu 19 Felder gleichzeitig auf dem Bildschirm sichtbar 

• Besonders schnelle und umfangreiche Sortierfunktion 

• Eigene Formatierroutine mit extrem hoher Kapazität 

• Zweiteilung des Bildschirms in Status- und Arbeitsfeld 

• Komplette Druckroutinen, auch für Etikettendruck 

Turbo-DATA-CPC 

Immer die richtige Wahl dm 69,- 


CopyShop 

Das universelle Hardcopy-Programm 

für alle CPC 

Wollen Sie Ihre traumhaft schöne Fraktalgrafik im 
Freundeskreis zeigen, oder brauchen Sie zu Ihrem 
selbstgeschriebenen Programm einen Ausdruck? 

Mit CopyShop bringen Sie alle Bildschirmansichten zu 
Papier, auch mit den exotischsten Druckern. Ein Show- 
Modus zeigt Ihnen die Hardcopy vor dem endgültigen 
Ausdruck auf dem Bildschirm! 


Mit CopyShop Hardcopies immer und überall: 

• Vier Formate in allen drei CPC-Modi mit automatischer 
Erkennung • In das Programm integrierter Grafikeditor mit 
Füllfunktion • 32 Farbraster wählbar über komfortable Pull- 
down-Menüs • Beliebige Ausschnittsvergrößerungen mit 
Invertierungsfunktion • Drucker-Anpaßmenü für alle Ep¬ 
son- und Seikosha-Drucker# Anpassung auch an gedrehte 
Bitbild-Bytes. z.B. an NEC P2 • Freezer auch für Hard¬ 
copies aus laufenden Basic-Programmen • selbstrelozie- 
rende Hardcopy-Routinen für eigene Programme 

CopyShop 

Das ultimative Hardcopy-Programm dm 49,- 


CPC Special Offer 2 

Vier Programme im Paket-Sonderpreis 

Ob Bildschirmgrafiken, Sprite-Animation, Disketten¬ 
monitor oder eine Diskettenverwaltung - im Special 
Offer 2 für alle CPC ist für jeden etwas dabei: 

DISKSORT-STAR 

Leistungsstarke Diskettenverwaltung mit hohem Bedienungskomfort und integriertem 
Diskettonmanager Verwaltung. Archivierung. Katalogisierung Ihrer Disketten und Aus 
druck der Daten - mit Disksort-Star kein Problem 


DESIGNER-STAR 

Grafikprogramm zum komfortablen Erstellen von Bildschirmgrafiken. Zur Bedienung ist 
ein Joystick oder eine Maus nicht notwendig. Au* Tastendruck werden Sie mit Hilfsmenüs 
durch das Programm geführt. 


CREATOR-STAR 

Erstellen Sie eigene Trickfilme auf Ihrem CPC - mit einem Kulissen- unO Sprite-Designer 
sowie beliebigen Laufschriften. In einer eigenen Programmiersprache mit Editor und 
Compiler können Sprites verbunden und Kulissen üboreinandergelegt werden 


STAR-MON . 

Professionelle CPC-Programrmerung mit Assembler, Disassembler und Monitor Das 
System besitzt einen eigenen Diskettenmonitor und Editor, eine Trace-Funktion kann 
Breakpoints setzen und Bankswitching vornehmen 

CPC Special Offer 2 

Für CPC-Profis dm 59,- * 

















CPC-Basic 


Mit dem FAst-BAsic-COMpiler aus dem DMV-Ver- 
lag nutzen Sie Ihr spezielles Schneider-Basic optimal aus! 


FAst BAsic COMpiler 

Der Turbo-Antrieb für Ihre 
Basic-Programme! 


Haben Sie sich schon immer gewünscht, daß Ihre Ba¬ 
sic-Programme auf dem CPC schneller laufen? Mit dem 
FABACOM-Basic-Compiler wird dies zur Wirklichkeit: 
Compilierte Basic-Programme brauchen weniger Platz 
und laufen schneller ab. 


FABACOM - 

schnell durch Compilierung 


DM 49,- 


Schnelle Programme durch FABACOM: 

• Voller Sprachumfang von CPC-Basic 1.1 (664/6128) 

• Die compilierten Programme sind auf jedem 
CPC lauffähig 

• Separate Compilierung von Programm¬ 
teilen für Nachladeprogramme 

• Fast alle Befehle von CPC-Basic 1.1 auch 
für CPC 464 

• Unterstützung von Integer- und Fließkom¬ 
ma-Arithmetik 

• Kompatibel zur Vortex-Peripherie inklusive 
der RAM-Disk 

• Alle CPM-Dienstprogramme können wei¬ 
terhin genutzt werden 

• Ausführliche deutsche Bedienungsanlei¬ 
tung und Beispielprogramme 


FAst BA 



BASIC-Compiler für CPC 464/664/6128 

Der Turbo-Antrieb für Ihre BASIC-Programme! 
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Das Software-Experiment 

Spielend den CPC beherrschen lernen 


Nehmen Sie teil am Abenteuer "Computer"! In zehn 
lebendig und leicht verständlich geschilderten Reisen 
in die Welt der Computergrafik, Simulation und künst¬ 
lichen Intelligenz erarbeitet der Autor mit Ihnen zusam¬ 
men insgesamt 17 interessante Programme, die Sie auf 
Diskette erhalten. 

Das umfangreiche, 180seitige Handbuch vermittelt 
Ihnen auf anschauliche und unterhaltsame Weise, wie 
aus Algorithmen Datenstrukturen und letztendlich 
Software entstehen: von der Idee zum Programm - der 
ideale Kursus zum Einstieg in das Computerwissen, für 
Hobby und Schuluntericht. Sehen Sie selbst, zu wel¬ 
chen phantastischen Grafiken und verblüffenden Intel¬ 
ligenzleistungen der CPC bei raffinierter Programmie¬ 
rung fähig ist! 


Wordmaster 

Sie raten ein Wort, das sich der Computer ausgedacht hat. 
Dann rät der Rechner ein Wort, das Sie sich ausgedacht 
haben. Wer braucht weniger Versuche? Sie werden sich 
wundern... 

Komplexe Grafik 

Sie lernen die mathematischen Grundlagen von Fraktalgrafi- 
ken und erarbeiten einen kompletten Fraktalgenerator zur 
Erzeugung von "Apfelmänn- 
chen"-Bildern. 

Das Spiel des Lebens 

Nach natürlichen Prinzipien des Wachstums erzeugt der 
Computer phantastische, kristallförmige Farbstrukturen. 
Ändern Sie die Regeln und Voraussetzungen, und sehen 
Sie, was für neue, noch nie dagewesene Formen sich 
ergeben. 


Mit roher 
Rechengewalt 

Mit dem "Brute- 
Force"-Algorith- 
mus darf der 
CPC so richtig 
loslegen und 
spielt mit roher 
Rechengewalt in 
dem afrikani¬ 
schen Strategie¬ 
spiel "Kalaha” al¬ 
le Gegner an die 
Wand - oder kön¬ 
nen Sie ihn trotz¬ 
dem schlagen? 


Entwicklungshilfe 

Eine gut ausgestaltete Simulation versetzt Sie in die Lage 
eines Entwicklungshelfers, der eine Hungersnot abzuwen¬ 
den versucht. Aber Ihre Mittel sind begrenzt... 




Der Computer 
als Stratege 

Ein raffiniertes 
System von 
Spielzugbewer 
tungen macht 
den CPC zu ei¬ 
nem fast un¬ 
schlagbaren 
Gegner im Go- 
bang-Spiel, der 
Ihnen anfangs 
saftige Niederlagen bescheren wird. Keine Angst - das 
Programm ist zu schlagen - aber wie, das müssen Sie 
selbst herausfinden. 

Der Computer lernt 

Erleben Sie ein Paradebeispiel für "Künstliche Intelligenz”: 
Das Programm "Minischach" ist lernfähig und wird mit jeder 
Partie ein bißchen besser. 

Das Ökologie- 
Experiment 

Der Computer 
zeigt Ihnen in 
animierter Farb¬ 
grafik einen si¬ 
mulierten Le¬ 
bensraum mit 
Weideland, 
Schafen und 
Wölfen. Erfor¬ 
schen Sie die 
ökologischen Gesetzmäßigkeiten, und schaffen Sie ein 
stabiles, natürliches Gleichgewicht. 

Word ketten 

Mit einem raffinierten Algorithmus löst der CPC Wortketten- 
Rätsel. Oder er erfindet neue Rätsel - ganz wie Sie wollen. 


Pascal läßt grü¬ 
ßen 

Ein erstaunli¬ 
ches Programm 
enthüllt verbor¬ 
gene Strukturen 
im sogenannten 
"Pascalschen 
Dreieck". Die 
grafische Dar¬ 
stellung ergibt 
traumhaft schö¬ 
ne und farbige 
Musterbilder. 


Das Software-Experiment 
Siebzehn verschiedene, lauffähige Programme 
180 Seiten Anleitung und Erklärung 
Diskette nur DM 39,- 

































CPC-Spiele 

Zu unglaublichen Preisen! 


J| 

iii:. 
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Faszination in 3D 

Zwei Super-Aktion-Spiele inklusive 
3D-Brille 




Know CPC 

Interessantes Frage- und Antwortspiel für die 
ganze Familie DM 29,-* 


StarTest 

Aktion-Adventure für alle CPCs DM 19,-* 


CYRUS II Schach 

Das bewährte SchachprogramnLj*itfJ 

H* eedie 


;play, einstell¬ 


barer Spielstarke und d«^$JM?tedienungsanleitung 

Kassette ** dm 10,-* 


Fantastic Four 

Vier Superprogramme zum Minipreis 

Cockaigne - Weltraum-Aktion 
Terranaut I - Science-Fiction 
Fruits - Geschicklichkeit 

Terranaut II - Textadventure dm 29,-* 


Special Öfters III 

Neun interessante Spiele für alle CPCs 

2 Disketten, dm 39,-* 


3D-LightCycle 

Das bekannte und beliebte 
TRON-Spiel für zwei Personen 
jetzt wie im Film I Erleben Sie die¬ 
ses spannende und abwechs¬ 
lungsreiche Aktionsspiel jetzt in 
einer neuen Dimension. Verblüf¬ 
fende und noch nie dagewesene 
3D-Effekte zusammen mit einem 
professionellen Sound lassen ^ 

Sie in eine völlig neue CPC-Welt 
versinken. Diesen Super-Hit ^ 

man live gesehen haben. 

Das beste Labyrinthspiel jetzt in 
Super-3D-Qualität. Auf der Su¬ 
che nach Hinweisen zum Passwort, das den 
mächtigen Zentralcomputer lahmlegen kann, lau¬ 
ern tausend Gefahren auf Sie. Räumlich perfekte 
3D-Darstellung, extrem schneller Grafikaufbau 
und viele Überraschungen garantieren eine völlig 
neue Art von Spielvergnügen. 

Für alle CPC 464.664.6128 mit Farbmonitor. Das Spiel 3D-Light Cycle 
kann in 2D-Darstellung auch auf Grünmonitor gespielt werden. 


DM 39,-* 


Game Box 3 

Für jeden das Richtige - vier ausgesuchte 
Top-Spiele für CPC 


Alphajet - Weltraum- 
Aktionsspiel mit außer¬ 
gewöhnlicher Grafik und 
tollen Effekten 


Telefomania - 

Interessantes Science- 
Fiction-Spiel mit völlig 
neuer Spielidee 


Kampf den Insekten - 

Erlebnisreiches 
Geschicklichkeitsspiel 
mit Überraschungen 


Funbo uncer- schnelles 
und farbenfrohes 
Aktions-Spiel mit 
eigenem Bild- 
Konstruktions-Editor 


DM 29,-* 























CPC-Einzelhefte 1989 




CPC-Sammelpack 

Solange unser Vorrat reicht, können Sie mit Einzelhef¬ 
ten und günstigen Paket-Angeboten Ihre Sammlung 
der Amstrad International vervollständigen - 
mit Wissen, das heute noch genauso wertvoll ist wie 
damals. 


Einzel hefte 1989 

pro Ausgabe dm 6,50 

Sammelpack 1988 

12 Ausgaben PC Amstrad International 
1/88 bis 11/88 und 1/89 dm 39,-* 

Sammelpack 1987 

12 Ausgaben PC Amstrad International 
1/87 bis 12/87 dm 39,-* 
























PCW JOYC 



• Preisvorteil 

• Informations¬ 
vorsprung 

• Zustellkomfort 


Abo-Order Zeitschrift 


Hiermit bestelle ich »PC International« für mindestens 

□ 12 Ausgaben □6 Ausgaben 

Preise: BRD 12 Ausgaben 66, - DM 

6 Ausgaben 33,—DM 

Auslandspreise: Europa 12 Ausgaben 96,-DM 

6 Ausgaben 48, - DM 

Außereuropäisches Ausland 12 Ausgaben 120,-DM 

6 Ausgaben 60. - DM 

Lieferung erfolgt ab der nächsterreichbaren Ausgabe 


Abo-Order DATABOX 


Hiermit bestelle ich die □ CPC-Databox C Joyce-Databox 
für mindestens □ 12 Ausgaben D 6 Ausgaben 

als □ Cassette □ Diskette 3" 

Bezugspreise Inland (einschl. Porto/Verpackung) 

Cass. 6 Ausgaben 90, - DM, 12 Ausgaben 180,- DM 
Disk 3" 6 Ausgaben 150, - DM, 12 Ausgaben 300, - DM 
Bezugspreise Ausland (eingekl. Werte außereuropäisch) 
Cass. 6 Ausg 100,- (120,-)DM, 12 Ausg. 200,- {240,-)DM 
Disk 3"6 Ausg 160,-(180.-) DM, 12 Ausg. 320, - (360,-) DM 
Lieferung erfolgt ab der nächsterreichbaren Ausgabe, 


Lleferanschrlft Rechner-Typ 

□ Geschäft □ Privat □ CPC DJoyce 


1 II 1 1 II 

1 1 1 : 1 1 I 1 

Vorname, Name 

. 

Firma (nur wenn Lieferadresse) 

INI! 1 1 1 1 1 1 

. 

Straße. Nr./ Postfach 

II IN INI 1 

11,11111 

PLZ/Ort 

(Bult Rfflaue 4 zu ehrt ft angebenf/ 


Dieses Abonnement verlängert sich automalisch um 6 bzw. 12 Ausgaben, 
wenn es nicht sechs Wochen vor Ablaut schriftlich gekündigt wird. 


Datum 1. Unterschrift (BeiMnflcilnilgnndesgeselrlchanWrt’steisl 


I Bequem und bargeldlos durch Bankabbuchung 


Bankleitzahl 

Konto-NrV-lnhaber 


Geldinstitut 


C Gegen Rechnung - zahlbar innerhalb zwei 
Wochen nach Erhalt. (Bitte keine Vorauszahlung 
leisten — Rechnung abwarten.) 

Bitte unbedingt auf der Vorderseite 
eine zweite Unterschrift leisten! 



r Information 

über 

CPC und PCW Joyce 

sammeln Sie mit 

• Einzelheften 

• Sonderheften 

• DATABOX 



*^oftwam® 

für 

CPC und PCW Joyce 

erwerben Sie im 

Bestellservice 

preisgünstig 

und 

schnell 


Einzel hefte und DATABOX 


Sonderheft und DATABOX 


6 

Einzelheft 
Ausgabe 
- DM/Stck. 

CPC 

Kassette 

14,- DM/Stck. 

CPC 

3“-Diskette 
24.- DM/Stck. 

Joyce 
3''-Diskette 
24,- DM/Stck. 

1'87biSlV08 
(Bitte einvagen) 
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C 
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l. 
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12/1'90/91 
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6/7'91 
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n 

a/9'9i 
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□ 

10/11*91 
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11 □ 


CPC-Sonderheft 
DM 14.- 


DATABOX 

3-Zoll-Diskette 


□ 309 Nr, 3/86 
l 311 Nr. 5/87 
C 312 Nr. 6/88 

□ 313 Nr. 7/88 
O 3136 Nr. 8/89 


□ 319 DM29.- 
J 334 DM38.- 

□ 340 DM38.- 

□ 3135 DM 38. - 

□ 3142 DM 38. - 


Kombipack 

Sonderheft + DATABOX 
3-Zoll-Diskette DM29,- 
“13044 


fl 3045 


Ü3046 


Ü3047 


LI 3048 


□ Bes,,Nr. 3043 CPC-Sonderheft-Kraftpaket 

5 Stck. CPC-Sonderhefte 3, 5, 6, 7, 8 

DM 35,- 

□ Best.-Nr. 3042 Sammelpack 1988 

12 Ausgaben PC Amstrad International 
1/88 bis 11/88 + 1/89 nitA ort 


+ Porto/Verpackung „... 

(Inland 4 ,-dm, Ausland 6. - dm) _ UM Gesamtbetrag: ______ DM 


CPC-Bestellservice 


Joyce 


-Bestellservice 


3“-Diskette 

Kassette 

DM 

3“-Diskette 

Joyce-Software 

DM 

□ 

207 

_ 

ConText CPC, Textverarbeitung 

59,- 

□ 

215 

Volume 1, Charakter-Designer 

49,- 






□ 

216 

Volume 2, Dateiverwaltung 

49,- 

□ 

202 

— 

CopyShop, Hardcopy-Programm 49, - 

□ 

217 

Volume 3, GSXplot 

59,- 

□ 

214 

_ 

Turbo Data CPC 

69,- 

□ 

219 

Volume 4, Bild-Editor 

49,- 






□ 

220 

Volume 5, Datenbank 

69,- 

□ 

205 

- 

Special Öfter 2 

59,- 

□ 

221 

Volume 6, Tabellenkalkulation 

59,- 






n 

222 

Volume 7. Grafische Benutzeroberfläche 69, - 

□ 

213 

- 

Software-Experiment 

39,- 










□ 

262 

CPC-Highlights 1 

49,- 

□ 

209 

- 

FaBaCom, Basic-Compiler 

49,- 

□ 

263 

CPC-Highlights II 

49,- 

□ 

104 

__ 

Startest 

19,- 

□ 

192 

CPC »Golden Hits« 1 

29,- 






□ 

193 

Joyce Highlights 1 

29,- 

□ 

1011 

- 

Fantastic Four, Spielesammlung 29,- 

□ 

264 

Joyce Highlights II 

29,- 

□ 

107 

- 

Special Öfter 3, Spielesammlung 39, - 



Joyce-Sonderheft-Pakete 







□ 

3050 

Sonderheft 2 + DATABOX, 2 Disketten 3“ 

29,- 

□ 

1369 

— 

Faszination 3D 

39,- 

□ 

3051 

Sonderheft 3 + DATABOX, 2 Disketten 3" 

29,- 

□ 

1012 

- 

Game-Box III 

29,- 

□ 

3052 

Sonderheft 4 + DATABOX, 2 Disketten 3" 

29,- 

□ 

106 


Know CPC 

29,- 



Joyce-Bücher 







□ 

406 

Joyce - mehr als ein Textsystem 


□ 

211 

- 

Fraktal Generator 3D CPC 

49,- 



+ DATABOX, Diskette 3“ 

49,- 


+ Porto/Verpackung 

(imand4 ,-'dm. Ausland6,- dm) _ DM Gesamtbetrag: - DM 
















































































































CPC • PCW JOYCE 


Abonnement 


Rechnungsanschrift 



Vorname, Name 

1 1 1 t i 1 1 1 L 

II i 1 1 Ml 

Straße, Nr./Postfach 

i 1 1 LI—L! 1 1 1 

PLZ/Ort 

Widerrufsrecht- 


Ich weiß, daß Ich diese Vereinbarung Innerhalb einer Woche 
beim DMV-Verlag, Postfach 250.3440 Eschwege, schriftlich wi¬ 
derrufen kann, wobei bereits die rechtzeitige Absendung mei¬ 
nes Widerrufschreibens zur Fristwahrung ausreicht Ich 
bestätige das durch meine zweite Unterschrift. 


Datum 2. Unterschritt (bol M.oaai18nroon dos seesttllchori Vertreters) 



Einzelhefte 


Ja, ich mache von Ihrem Angebot Gebrauch und bestelle die umseitig 
ausgewShllen Produkte. Bitte liefern Sie an folgende Anschrift: 


Name 


Straße/Postfach 



PLZ/ORT 

□ Den Betrag bezahle ich mit dem beigefügten Verrechnungsscheck. 

I Ich bitte um Lieferung per Nachnahme zuzüglich der Nachnahmegebühr 


(nur Innerhalb der BRD). 


Öatum Unterschrift (bei Minderjährigen des gesetzlichen Vertreters) 


Bitte 

ausreichend 

frankieren 



Alle 2 Monate bietet Ihnen PC In¬ 
ternational aktuelle Informationen 
zu CPC und Joyce. Nutzen Sie 
dieses Wissen mit einem Abonne¬ 
ment zu Ihrem ganz persönlichen 


• Preisvorteil 


DMV-Verlag 
PC International 
Postfach 250 


• Informationsvorsprung 

• Zustellkomfort 

Zur Erinnerung: 

Mein persönliches Abonnement wur¬ 
de bestellt am 


7' 



3440 Eschwege 


- Widerrufsrecht- 

Ich weiß, daß ich diese Vereinbarung innerhalb ei¬ 
ner Woche beim DMV-Verlag. Postfach 250, 3440 
Eschwege, schriftlich widerrufen kann, wobei bereits 
die rechtzeitige Absendung des Widerrufschreibens 
zur Fristwahrung ausreicht. 


DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 


Bitte 

ausreichend 

frankieren 



PC-Amstrad-Leser sind immer 
top-informiert. Daher sollte Ihnen 
kein Heft oder Sonderheft in Ihrer 
Sammlung fehlen. Das Eintippen 
von Listings und Programmen er¬ 
sparen Sie sich durch unseren 
günstigen DATABOX-Service. Im¬ 
mer gut beraten sind Sie mit PC 
Amstrad 

• Sonderheften 

• DATABOXEN 

• Sammelpacks 

Zur Erinnerung: 

Meine Hefte, Sonderhefte und DATA¬ 
BOXEN wurden bestellt am 


\ 

I 

i 

i 



CPC-/PCW-Joyce-Bestellservice 

Ja, Ich mache von Ihrem Angebot Gebrauch und bestelle die umseitig 
ausgewählten Produkte. Bitte liefern Sie an folgende Anschrift: 


Name 


Straße/Postfach 


PLZ/ORT 

D Den Betrag bezahle ich mit dem beigefügten Verrechnungsscheck. 

□ Ich bitte um Lieferung per Nachnahme zuzüglich der Nachnahmegebühr 
(nur innerhalb der BRD). 


L 


Dalum Unlerschrifl (bei Mindor)tihngen des yosolzllchen Vertreters) 


Bitte 

ausreichend 

frankieren 


DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 



Die Power-Software von PC Am¬ 
strad für CPC und PCW Joyce ist 
unter Kennern bereits ein Begriff, 
und unser Sortiment wird Monat 
für Monat gepflegt und erweitert, 
Und vergessen Sie nicht: Soft¬ 
ware von PC Amstrad ist auch ein 
Geschenk, das ankommt. Nutzen 
auch Sie die Vorteile von PC- 
Amstrad-Software 


< 


Ei 

Kl 

2c 

Wi 


• preisgünstig 

• bewährt 

• praxisgetestet 

Zur Erinnerung: 

Meine CPC- und PCW-Joyce-Soft¬ 
ware wurde bestellt am 
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Die 


DMV-Sammelordner 


PC- 

Soft wäre 

vom 

DMV 

Versandservice 

• leistungsstark 

• praxisbewährt 

• preisbewußt 



Kleinanzeige 

Eine Gelegenheitsanzeige in unserem 
Kleinanzeigen-Markt macht sich immer be¬ 
zahlt, ob Sie tauschen, verkaufen oder er¬ 
werben wollen I 
Und so wird’s gemacht: 

Kreuzen Sie bitte an, in welcher Rubrik Ihre An¬ 
zeige erscheinen soll und ob Sie privat oder ge¬ 
werblich ist. Dann schreiben Sie Ihren Text so 
In das vorgezeichnete Feld, daß jeder Buchsta¬ 
be, jedes Satzzeichen oder jeder Wortzwischen¬ 
raum ein markiertes Kästchen ausfüllt. Jetzt 
brauchen Sie nur noch die Zeilen zu zählen, den 
Preis zu berechnen, einen Verrechnungsscheck 
auszufüllen, und fertig ist Ihre Gelegenheits¬ 
anzeige. 

Bitte beachten Sie! 

Aus verwaltungstechnischen Gründen kann der 
Abdruck Ihrer Kleinanzeige nur gegen Vorkasse 
erfolgen. 


So nderhefte • Samm elordner • Demonstrationen 


Ausgabe DATABOX 


DOS EXTRA 

2 Stk. 5 1/4“-Disk 

1 Stk. 3 1/2“-Disk 

DM 18,- 

DM 35,- 

DM 35,- 

J 356 

Nr. 3 

□ 357 

□ 358 

□ 361 

Nr. 4 

ÜT5877 

1 3812 

□ 362 

Nr. 5 

□ 3813 

C 3814 

L. 383 

Nr. 6~ 

□ 3815 

□ 3816 


Nr. 7 

□ 3817 

H 3818 

L 385 

Nr. 6“ 

□ 381§ 

□ 3820 

C 387 

Nr. 10 

i ' 3823 

Ü 3824 

□ 388 

Nr. 11 

□ 3825 

□ 3826 

r 389 

H 3Öi - 

Nr. 12 

1" 3827 

U 3828 

□ 392 

Nr. 14 

C 3829 

J 3630 

TT353 

TTrUT 

n~383i 

□ 3832 

1 394 

Nr. 16 

H 3833 

H 3834 

WinDOS 

1 Stk. 5 1/4“-Disk 

1 Stk. 3 1/2“-Disk 

DM 18,- 

DM 24,- 

DM 24,- 

U 30200 

Nr. 1 

Diskette Im Heft 


□ 30201 

Nr. 2 

Diskette Im Heft 



DOS- 

5 1/4"-Diskette 

3 1/2“-Diskette 

Taschenbücher 

DM 24, - 

DM 24,- 

BAND 1 

□ 60501 

L 60502 

BAND 3 

J 60521 

L 60522 

BAND 4 

U 60531 

T. 60532 


Best.-Nr._ Dl 

C 60500 DOS-Taschenbuch Band 1 29,8i 

□ 60510 DOS-Taschenbuch Band 2 29,8' 

□ 60520 DOS-Taschenbuch Band 3 29,8' 

□ 60530 DOS-Taschenbuch Band 4 29,8i 

□ 40101 Das große DOS-Profi-Arbeitsbuch 78, - 

□ 40102 Datenfernverarbeitung - professionell 48, - 

□ 40103 Clipper 5.0 58, - 

□ 402 Die Basic2-Toolbox 49, - 

403 Die Basic2-Toolbox, 5 1/4“-Diskette zum Buch 29, - 

I 482 QuickStart ConText PRO 19,8i 


Sammelordner 


2 Stk. 15,80 


□ 530 DOS 
U 534 toolbox 
C 536 DOS TEST 


□ 531 PC Internationa 

□ 535 PCpur 

□ 537 AMIGA DOS 


Zwischensumme + Porto und Verpackung 
(Inland 4,- DM, Ausland 6,- DM)_ 


Demodisketten jeweils DM 5, - 


C 001 Fraktal 3D + MaskEdit 

□ 005 ConText PRO 

□ 012 GraphBas PC 


U 003 ERGO 3.0 
D 007 3D-Draw 
D 009 Navigator 


Gesamtbetrag: 


Dh 



5 ’/4“ 

3 Vz“ 


DM 

2726 

P 

2727 ü 

ConText 4.0. 

249,- 

2726 

U 

2729 □ 

ConText 4.0-Update 

99, - 

2419 

□ 

2420 □ 

ConText-Zelchenedltor 


2532 

n 

2533 1 1 

ConBase 

149,- 

2536 

ii 

2539 □ 

ConVIow 

49,- 

2534 

D 

2535 3 

DMV-ProfiTools f Clipper 

199.- 

2536 

u 

2537 

DMV-Integrator 1 . Clipper 

199,- 

256 

n 

257 . 

PC-VIrusDoktor 


2903 

□ 

2904 Z 

PC-VIrusFlnder 


2905 

-i 

2906 

GraphBas PC, Turbo Basrc 

99,- 

2907 

o 

2908 

GraphBas PC, Microsoft Quick Basic 

99,- 

2522 


2521 C 

ERGO 3.0, OOS-Ben utzeroborfläche 

199,- 

236 

_ 

239 □ 

MaskEdit Plus mit olnam Treiber 

99,- 

2613 

c 

2614 I 

MaskEdit Plus, Pakei mll zwei Treibern 

149,- 

2621 

G 

2622 D 

MaskEdit Plus, Paket mit drei Treibern 

199,- 

Turbo 

Turbo C Top-Speed Turbo 


Pascal 3/4/516 Microsoft C Modula-2 Basic 


L 

2632 

-J 2633 □ 2634 C 2635 

U 2636 

2720 

□ 

2721 □ 

WlnBasIc 

299.- 

2730 

□ 

2731 1 1 

DMV-WIndowsTools Systeminfo 


2732 

1 1 

2733 11 

DMV-WIndowsTools MulliCopy 

99.- 

2734 

IJ 

2735 □ 

DMV-WIndowsTools HokEdlt 


2736 

ü 

2737 1 1 

DMV-WIndowsTools TextSearch 

99,- 

2724 

1 1 

2725 1 

ColoRIX 

299,- 

6031 

IJ 

6032 

ProfEd 

99.- 

227 

□ 

233 

BCI DlsAsm/186, (MS-DOS) 

199.- 

2738 

P 

2739 

NeoGraph 

99,- 

6007 

3 

6006 _ 

3D-Drow, Version 1.0 

99,- 

6017 

□ 

6016 

3D-Draw Professional 


6019 

J 

6020 

Navigator 4.5 

69,- 

6025 


6026 C 

Llghtnlng 3D. 1.5 

199,- 


+ Porto/Verpackung 

(Inland 4.- DM. Ausland 6,- DM) _ DM 


5 V 

3 Vz“ 

D 

6035 □ 

6036 J 

Fontllne 


6027 D 

6028 ZI 

DOS-CAD 3.0 

199 

2700 LI 

2701 ZI 

DMV-Faktura 

398 

2710 n 

2711 

DMV-Atoller 

249 

2712 1 

2713 Z 

DMV-Atelier Zusatz-Fonts 

99 

2714 

2715 _ 

□MV-Ateller Zusatz-Symbole 

99 

20600 Z 

20601 

MultICopy 

49 

20602 

20603 □ 

DataBase 

49 

20604 

20605 n 

RAM Patrouille 


20606 L. 

20607 IJ 

Tlppsl 

49 

2060B 1 

20609 □ 

Menue 


20610 D 

20611 □ 

Terminplaner 

49 

20612 D 

20613 LJ 

Astro 


2361 IJ 

2362 □ 

MAUSAU Plus 

35, 

1371 □ 

1372 o 

PC-Splele-Sampler 

49. 

248 1 1 

249 ü 

Fraktal-Generator 3D. MS-DOS 

69. 

1374 LI 

_ 

Populous PC 

69,1 

1379 □ 

1380 1 

Indianapolis 500 

49,1 

1381 LJ 

1382 ZI 

Oll Imperium 

39.1 

1383 

1384 

Loom 


1385 Z 

1386 

Zak McKrackon 

69,1 

1387 

1388 

Manlac Manslon 


1295 

1296 C 

Momo 


1297 

1298 C 

Tradomastor 

49. 

1408 C 

1409 C 

Wlng Commander 

89, 

»4(0 C 

1411 U 

The Secret Missions 

39. 

1406 C 

1407 □ 

Wlng Commander ♦ The Socret Missions 

119, 

1402 1 

1403 □ 

The Secret of Monkoy Island 

89, 

1404 Q 

1405 D 

Wonderland 

99, 


Gesamtbetrag: DM 



Geschäftliche Empfehlungen: DM 8,- je angefangene Zeile, zzgl. gesetzlicher Mehrwertsteuer, 

Bitte veröffentlichen Sie meine Anzeige in der nächsterreichbaren PC Amstrad für 
i private Zwecke C gewerbliche Zwecke (gewerbliche Anzeigen werden mit G gekennzeichnet) 

Das ist der Text: (Bitte deutlich in Druckbuchstaben schreiben!) 



f Die Anzeige soll als Chiffre-Anzeige erscheinen (nur bei Pnvat-Anzeige) Chiffre-Gebühr 10.- DM inkl. MwSt. zzgl. zum Anzeigenpreis. 
In dieser Rubrik: 

□ Biete an □ Suche □ Tausch □ Stellenmarkt/frele Mitarbeit 

I j Hardware _ Hardware □ Geschäftsverbindungen 

□ Software □ Software □ Verschiedenes 




























































































































































PC- 

Sonderhefte 

Ja, ich mache von Ihrem Angebot Gebrauch und bestelle die umseitig 
ausgewählten Produkte. Bitte liefern Sie an folgende Anschrift: 

Name 

Straße/Postfach 

PLZ/ORT 

ü Den Betrag bezahle ich mit dem beigefügten Verrechnungsscheck. 

□ ich bitte um Lieferung per Nachnahme zuzüglich der Nachnahmegebühr 
(nur innerhalb der BRD). 

Örtum Unterschritt (bei Minderjährigen des gesetzlichen Vertreters) 


PC- 

Software 

Ja, Ich mache von Ihrem Angebot Gebrauch und bestelle die umseitig 
ausgewählten Produkte. Bitte liefern Sie an folgende Anschrift: 

Name 

Straße/Postfach 

PLZ/ORT 

L Den Betrag bezahle ich mit dem beigefügten Verrechnungsscheck. 

Ü Ich bitte um Lieferung per Nachnahme zuzüglich der Nachnahmegebühr 
(nur innerhalb der BRD). 

Datum Unterschrift (bei Minderjährigen dös gesetzlichen Vertreters") 



Kleinanzeige 

Bei Angeboten: 

Ich bestätige, daß ich alle Rechte an 
den angebotenen Waren besitze. 

__ 

| Name 

Straße/Postfach 


PLZ/ORT 

□ Den Betrag bezahle Ich mit dem beigefügten Verrechnungsscheck. 


Datum Unterschritt (bet Minderjährigen des gesetzlichen Vertreters) 


Bitte 

ausreichend 

frankieren 


DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 


Bitte 

ausreichend 

frankieren 


DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 


Bitte 

ausreichend 

frankieren 


DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 



DOS-Taschenbücher und DOS- 
EXTRA-Sonderhefte sind eine zu¬ 
verlässige Informationsquelle für 
jeden PC-Besitzer. Nutzen auch 
Sie dieses Wissen, und vertiefen 
Sie es mit den dazu angebotenen 
Programmen aus dem DATA- 
BOX-Service. Den PC beherr¬ 
schen mit 

• DOS-EXTRA-Sonderheften 

• DOS-Taschenbüchern 

• DOS-DATABOX-Service 

Zur Erinnerung: 

Meine DOS-Sonderhefte, DOS- 
Taschenbücher, DOS-DATABOX 
wurden bestellt am 



PC-Software vom DMV-Verlag ist 
unter Kennern bereits ein Begriff 
und auch ein gutes Angebot für 
Sie, Ihren PC mit starken und an¬ 
wendergerechten Applikationen 
auszustatten. Vom der Textverar¬ 
beitung bis zum Programmiersy¬ 
stem, beim DMV-Versandservice 
kaufen Sie günstig ein. Den PC 
konsequent nutzen mit PC-Soft¬ 
ware aus dem DMV-Versand¬ 
service 

• PC-Anwendungen 

• PC-Applikationen 

• PC-Entwicklungssysteme 

Zur Erinnerung: 

Meine PC-Software wurde bestellt am 



Wollen Sie etwas aus dem Com¬ 
puterbereich tauschen, verkaufen 
oder erwerben, dann schalten Sie 
doch eine Gelegenheitsanzeige in 
unserem Kleinanzeigen-Markt. 

Dabei können Sie bestimmt so 
manche Mark sparen und ein gu¬ 
tes Schnäppchen machen. Ihre 
Chancen nutzen Sie konsequent 
mit 

• Gelegenheitsanzeigen 

• Kleinanzeigen 

• Gewerblichen Angeboten 

Zur Erinnerung: 

Meine Kleinanzeige wurde aufgege¬ 
ben am 
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Anwendung: 


1991 


1991 




Für Vor t cx-Anwander : 

DOS-Erwellorung 

Olsktoot 


Alles Oper Roppp. 
P'ogrammiorung 


Qrundlagon: A 

Sour« Programmierung 
leicht gemacht 


Sprach synthesteor 

de Luxe 


UUCSIMU1ATOR 
GANGSTER 
THI DESIGNER 
nOUINIPIEL-ADVENTVIl 


CPC-Sonderhefte 


CPC-Sonderhefte 

Randvoll mit nützlichen Tips und Tricks für Ihren CPC- 
Computer, sollten die Sonderhefte der PC Amstrad 
International in keiner Sammlung fehlen. Ob komplett 
als Kraftpaket oder als Kombipack mit der DATABOX - 
jetzt können Sie kompaktes CPC-Wissen so günstig 
wie noch nie erwerben. 

CPC-Sonderheft-Kraftpaket 

Fünf CPC-Sonderhefte 

3, 5, 6, 7, 8 DM 35,-* 

CPC-Sonderheft-Kombipack 

Ein Sonderheft (3, 5, 6, 7, oder 8) 

+ DATABOX DM 29,-* 

DMV-Sammelordner 

2 Stück dm 15,80* 
































Joyce-Programmsammlungen 


GCPM - die grafische 
Benutzeroberfläche für den 
Joyce 

Schnell, bequem und komfortabel 

Beneiden Sie nicht länger die PC-Besitzer! Mit GCPM 
können Sie nun auch für den Joyce eine komfortable 
grafische Benutzeroberfläche inklusive Mausbedie¬ 
nung, Uhr, Taschenrechner, Schnittstellensteuerung, 
Passwortabfrage und vielem mehr erwerben. 

GCPM bietet Ihnen unter anderem: 

• Steuern Sie alle Funktionen Ihres Joyce wahlweise über 
Maus oder Tastatur. • Arbeiten Sie mit der Darstellung aller 
Dateien in Tabellenform ähnlich LogoScript und den Stan¬ 
dardfunktionen wie Kopieren, Umbenennen und Löschen. 

• Auf bis zu drei Laufwerken können Sie Parameter, 
Suchpfade (ohne SETDEF) und das temporäre Laufwerk 
beliebig einstellen. • Verändern Sie Dateiattribute, und 
rufen Sie Programme direkt von GCPM aus auf. • Nutzen 
Sie die Funktionen zum Verschlüsseln und Komprimieren 
von ASCII-Dateien und die optionale Passwortabfrage 


I Sparen Sie 
Zeit mit dem 
integrierten 
Taschenrech¬ 
ner mit Zwi¬ 
schenspei¬ 
cher und um¬ 
fassenden 
Rechenfunk¬ 
tionen 

• Verändern 
Sie beliebig 
die Grundein¬ 
stellungen 
der Schnitt¬ 
stelle, des 
Zeichensatzes, 

der Tastatur, der Maus, der Diskettenlaufwerke und des 
Druckers. • Ein Screensaver stellt den Monitor bei Nicht¬ 
gebrauch dunkel. • Mit dem GCPM-Starterset als Installa¬ 
tionsprogramm und 40seitigem Handbuch mit vielen Abbil¬ 
dungen können Sie im Handumdrehen GCPM auch auf 
Ihrem Joyce anwenden. Ein Programm, das jeder Joyce- 
Besitzer haben muß! 

Joyce-Programmsammlung 7: 

GCPM - Grafische Benutzeroberfläche nur dm 69,- 
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Keine Inhaltsverzeichnisse mehr mühsam einzeln auslesenl 
Mit GCPM sind Sie über alle Lautwerke immer im Bilde. 


Joyce-Bild-Editor 

Grafikprogramm zum Erstellen hochauf¬ 
lösender Grafiken 

Der Joyce ist mehr als ein Textverarbeitungssystem! 
Mit dem Joyce-Bild-Editor erstellen Sie komfortabel 
hochauflösende Grafiken, binden diese in eigene Pro¬ 
gramme ein oder geben sie auf dem Joyce-Drucker 
aus. 

Der Joyce-Bild-Editor - erschließt die Grafikfähigkeiten Ihres 
Joyce: 

• Exaktes, pixelgenaues Zeichnen durch Normal- und Feinmodus 

• Lösch- und Invertierungsfunktion in beiden Bearbeitungsmodi 

• Einfache Integration beliebiger Texte in die Bildelemente 

• Laden und Speichern von Bildern mit übersichtlichem Dateimenü 

• Option zum Mischen von fertigen Bildern nach der Erstellung 

• Ausdruckmöglichkeit mit Randbestimmung auf dem Joyce- 
Drucker 

• Bis zu vier verschiedene, vordefinierte Druckformate anwählbar 

• Kompletter Quelltext in Turbo Pascal 3.0 wird mitgeliefert 

Joyce-Programmsammlung 4: 

Bild-Editor nur dm 49,-* 


Joyce-Busineß-Paket 

Erstellung von Geschäftsgrafiken und 
Tabellentextverarbeitung 

Für Präsentationen erstellen Sie mit GsxPlot Ge¬ 
schäftsgrafiken und Statistiken in Form von Balken-, 
Kurven- und Punktediagrammen für Bildschirm und 
Drucker. Mit FeldTab füllen Sie Vordrucke, Formulare 
und Tabellen mit Ihren Texten aus. 

GsxPlot - die Lösung für Busineß-Grafik auf dem Joyce: 

• Menügesteuerte Erstellung von Balken-und Kurvendiagrammen 

• Strich- und Textgrafik ebenfalls über Menüs steuerbar 

• Online-Hilfe zur schnellen Einarbeitung in die Programmfunktionen 

• Darstellung der erstellten Grafiken auf Bildschirm und Drucker 

FeldTab - plaziert Ihre Texte millimetergenau: 

• Komplette Menüsteuerung im gewohnten Aufbau von LocoScript 

• Genaue Eingabe von Seitenlange, Zeilenabstand und Tabulatoren 

• Individuelle Bestimmung von Schriftweiten und Schriftarten 

• Eingebauter, komfortabler Seiteneditor zur Eingabe der Texte 

• Textübernahme von LocoScript oder als ASCII-File möglich 

Joyce-Programmsammlung 3: 
Busineß-Paket nur dm 59,- 




















Hochwertige Software zu Niedrigpreisen für Joyce-Besitzer 
aus der Angebotspalette des DMV-Verlags! 

Jede Programmsammlung ist, soweit nicht anders vermerkt, auf Joyce PCW 
8256 und 8512 lauffähig und wird als auf 3-Zoll-Diskette mit deutscher Bedie¬ 
nungsanleitung ausgeliefert. 


Joyce-Tabellenkalkulation 

Die universelle Tabellenkalkulation für alle Joyce-Be¬ 
sitzer. Ob Monatsbilanzen, Steuerabrechnungen oder 
Kontoführung - mit der Joyce-Tabellenkalkulation sind 
Sie allen Aufgaben gewachsen. 

Schnell, einfach und sicher - die Joyce-Tabellenkalkulation: 

• Schnelle Dateioparationen durch Benutzung der RAM Disk 

• Besonders schnelle Berechnungsalgorcthmen für die Felderwerte • Übersichtliche 
Menüführung und 
Abfangen von Fehl 
Eingaben • Stan 
flardmäßig bis zu 
2574 frei belegbare 
Felder für Berech¬ 
nungen • Am Rand 
eingeblendete For¬ 
mel mit bis zu 68 
möglichen Zeichen 

• Eigene Befehle 
zur Verkürzung der 
Formeln und Expo 
nenhaiausdrücke 

• Ausdruck der Er¬ 
gebnisse in bis zu 
drei verschiedenen 
Schnftarien 


Joyce-Programmsammlung 6: 

Tabellenkalkulation für alle Joyce PCWs 

nur DM 59,- 



Joyce-Datenbank 

Die ideale Datenbank für den Joyce mit minimalem 
Disketten-Speicherbedarf. Dennoch bietet Ihnen die 
Joyce-Datenbank maximal 27 Felder pro 
Datensatz, 50 Stellen pro Feld und bis zu 
35.000 Datensätze pro Datei. 

Daten effektiv verwalten mit der Joyce-Datenbank: 

• Besonders schnell durch Verwendung der RAM Disk für das 
Programm 

• Universell durch die Ver¬ 
wendung von Standard- 
Direktzugritfsdateien 

• Bequem durch Datentrans¬ 
fer von vorhandenen In neuan¬ 
gelegte Dateien • Maske zur 
Datenerfassung und Ände¬ 
rung wird automatisch gene¬ 
riert • Komfortabel durch 
Wahl der Sortierkritenen oder 
Mehrfach Sortierung 

• Listen mit automatischer 
Spaltenformatierung und 
Spaltensummen • Automa¬ 
tischer Eintrag neuer Dateien 
in das Disketten-Hauptmenu 

• Speicherung einmal ge 
wähiter Druckparameter zur Wiederverwendung 

Joyce-Programmsammlung 5: 

Datenbank (PCW 9512 auf 
Anfrage) nur DM 69,-* 
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Joyce-Zeichensatz-Designer Joyce-Dateiverwaltung 


Erstellung von Zeichensätzen und 
grafische Darstellung mathematischer 
Funktionen 

Sonderzeichen und ganze eigene Zeichensätze für die 
Bildschirmausgabe erstellen Sie komfortabel und ein¬ 
fach mit dem Joyce-Zeichensatz-Designer. Mit dem 
Programm MGX können Sie mathematische Funktio¬ 
nen und Meßreihen auf Bildschirm und Drucker ausge¬ 
ben. 

Zeichensätze selbstgemacht mit dem Joyce-Zeichensatz-Designer: 

• Editieren, Erstellen und Abspeichern von Bildschirm Zeichensätzen 

• Drucken von vorformatierten ASCII-Texten unter CP-'M Plus möglich 

• Vier fertig gestaltete Zeichensätze im Lieferumfang enthalten 

• Bonusprogramm zum Einstellen der Joyce- Schnittstelle und Tastatur 

MGX - Funktionen und Meßwerte grafisch auf Bildschirm und Drucker: 

• Arithmetische Grund und Sonderfunktionen sind darstellbar 

• Gleichzeitige Darstellung mehrerer Funktionen und Meßreihen 

• Druckerausgabe der Ergebnisse im Großformat möglich 

• Neben einer Klammerebene ist eine Memory Funktion Integriert 

Joyce-Programmsammlung 1: 

Zeichensatz-Designer nur 


DM 49,-" 


Universelle Erstellung und 
Verwaltung eigener Dateien 

Legen Sie Ihre Daten in eigene Dateien ab, und 
verwalten Sie diese mit SuperDat. Rund¬ 
schreiben, Serienbriefe und eine Übernahme 
der Daten in LocoScript erledigen Sie mit 
SuperTex. Ein leistungsfähiger Taschenrech¬ 
ner steht Ihnen mit SuperCal zur Verfügung. 

SuperDat - Super-Dateiverwaltung für Ihre Daten: 

• Komfortable Eingabe der Daten in eine Eingabemaske 

• Mehrere Arten von Suchfunktionen, z.B. auch Suche mit Jokern 

• Dateien bis zu 8 Feldern und Datensätze bis 255 Zeichen möglich 

SuperTex - verarbeitet Ihre Daten automatisch: 

• Einfügen von ausgewählten Einträgen aus SuperDat Dateien in Text 

• Umwandlung von bis zu 30 Datensätzen in eine LocoScripl-Datei 

SuperCal - der Tachenrechner für den Joyce: 

I Bietet Grundrechenarten, Winkel-, 

Quadrat- und Prozentfunktionen 

• Neben einer Klammerebene ist 
eine Memory-Funktion integriert 

Joyce-Pro- 
gramm- 
sammlung 2: 

Dateiverwaltung 
nur DM 49,-" 




















Aus dem Inhalt: 

Joyce-Sonderheft 4: 

• Strickmustergenerator 

• WordStar-Verbesserungen 

• Bundesligasimulation 

• Super-Reaktionsspiel Filemanager 

• Puildown-Menüs 

• Astrologieprogramm 

• Diskettenmonitor 

• Hauptstädte raten in LOGO 

• Statuszeile für dBase und Basic 

• Hardcopy-Routine für 24-Nadler 

• LOGO macht Schachteln 

• dBase-Literaturverwaltung 

• Universelles Werkzeug zur Veränderung von dBase-Dateien 

• Joyce-Sonderheft-Kombipack 


Joyce-Sonderheft 3: 

• Vokabeltrainer 

• RAM-Monitor - Speicherinhalte verändern 

• Memory-Spiel 

• Mini-DTP-Programm 

• Drucker-Spooler unter CP/M 

• Disketten-Kopierprogramm bis 43 Spuren 

• Grafik auf dem Joyce-Drucker 

• Tastaturbelegung unter CP/M und 
LocoScript ändern 

• Reset ohne Datenverlust 

• Super-Werkzeugkiste dBase 

• Grafikutilities für LOGO 


Joyce-Sonderheft 2: 

• Adreßverwaltung 

• Archivprogramm (Video- oder Literaturverwaltung) 

• Pascal-Compiler in Basic 

• Suburbia (Spiel ähnlich Monopoly(R)) 

• Turbo-Pascal-Grafikroutinen ohne GSX 

• Komfortable Balkengrafik 

• Joyce-Zweitlaufwerk selbst anschließen 

• 3D-Plotter 

• Etikettendruckprogramm 

• Ordnung auf der Diskette mit LocoScript 

• dBase-Handbuch selbst ausdrucken 

• LOGO-Funktionenzeichner 


Jeweils ein Sonderheft + die DATABOX dm 29,-* 
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Joyce-Sonderhefte 

Als Sonderpublikationen der PC Amstrad International bieten die Joyce- 
Sonderhefte auf jeweils 120 Seiten ausschließlich erstmalig veröffentlichte 
Beiträge sowie reichlich Tips & Tricks zu Joyce/PCW 8256, 8512 und 9512. 


•rips: 
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DMV-Bücher zum Joyce 

Alle Besitzer eines Joyce-PCW, die ahnten, daß der Horizont Ihres 
Computers weit über LocoSript hinausgeht, finden jetzt Ihre Bestätigung: 






Joyce - mehr als ein 
Textsystem 

Auf über 300 Seiten tragen die Autoren alles Wissenswerte 
über den Joyce/PCW zusammen. Anfänger wie Profis, 
Anwender wie Programmierer finden in diesem Buch einen 
reichen Schatz an Tips und Tricks sowie ein unentbehrli¬ 
ches Nachschlagewerk. 

Erstmals wird auch in einem Buch ein »heißes« Eisen 
ausführlich behandelt: die Hardware des Joyce. Besonders 
dieses Kapitel zeigt völlig neue Möglichkeiten des Joyce - 
so wird beispielsweise der Anschluß eines Sprachsynthe¬ 
sizers und der Selbstbau einer Schnittstelle besprochen. 

Ausführliche Kapitel über Basic und LOGO erlauben Ihnen, 
die Möglichkeiten dieser Sprachen auszureizen. Anfänger, 
die sich erstmals in der Programmierung versuchen wollen, 
finden durch sinnvolle, kurze Beispielprogramme wertvolle 
Unterstützung. Ein besonderes »Schmankerl« ist das gro¬ 
ße Extra-Kapitel zur JETSAM-Dateiverwaltung. 


Aus dem Inhalt: 

• Sprachen: 

LOGO als Grafiker und mit kompletter Befehlsübersicht 
Erläuterung aller Basic-Befehle mit Beispielprogrammen 
Generator für Jetsam-Verarbeitung 
Kurzübersicht für Turbo Pascal und C 

• Programmierhilfen, Tips und Tricks: 
Steuercode-Tabellen für Bildschirm und Drucker 
XBIOS-Routinen 

OUTs und POKEs unter Basic 

• Hardware: 

Speichererweiterung 

Zweitlaufwerk 

Druckkopfreinigung 

Bildschirminverter 

Schnittstelle am Expansions-Port 

Sprachsynthesizer 

Joyce - mehr als ein Textsystem 

325 Seiten mit farbigen Abbildungen, Leinen- 
Hardcover, 

inklusive 3-Zoll-Diskette jetzt nur dm 49,-* 

Unser Joyce-Hit weiter im 
Angebot: 

Praktische Textverarbeitung mit Joyce 

Der Autor Jürgen Siebert zeigt in diesem Buch die Möglich¬ 
keiten der Textverarbeitung LocoScript auf. Darunter vieles, 
was Sie von LocoScript nicht erwartet hätten.... 

Von der Pike auf werden Sie an den Umgang mit Schablo¬ 
nen und Standard-Layouts herangeführt. Einige Abstecher 
führen auch zu anderen Textverarbeitungen unter CP/M 
wie ED und Wordstar. 



d mw 


Daten- und 
Medienverla/j 


JOYCE 


JOYCE- mehr als ein Textsyslem 


Anwendungen und Problemlösungen 
für PCW 8256/8512/9512 





Auf der Diskette erhalten Sie über 50 Datei¬ 
en mit Schablonen, Brief- und Postkarten- 
Layouts, Serien-Rundschreiben. Etiketten. 
Formularen, Schriften, Bildschir¬ 
minstallationen und vieles mehr. 


Aus dem Inhalt: 


• LocoScript-Training für Fort¬ 
geschrittene 

• Wie rette ich den Text bei 
Systemfehlern? 

• Joyce-Tasteninstallation für 
Wordstar 

• Aleatorische Poetik: 

Der Computer dichtet 


Praktische 
Textverarbei¬ 
tung mit Joyce 

207 Seiten, 
Leinen-Hardcover, 
Inklusive 3-Zoll - 
Diskette 

jetzt nur DM 49,-* 































Das ist die Software zur PC International 
jeden Monat neu 


DATABOX: 

- Mehr als der übliche Software-Service 


S1SHMS81 
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I 


- Bringt ergänzend sämtliche Listings der jeweiligen 
Zeitschrift und alle Programmbeispiele auf Kassette 


u "d S-Zoli-Disketfe." a " e CPCs 3lS Kasse «e 


oder auf 3-Zoll-Diskette 

- Die Programme sind, soweit systembedingt möglich, 
auf allen drei CPC-Modeilen lauffähig. Einzelheiten 
entnehmen Sie bitte der nebenstehenden Aufstellung. 

- Soweit die Programme nicht Bestandteil einer Serie 
sind, befinden sich alle Programme als »ready to run« 
auf der DATABOX. 

- Erscheint jeden Monat und trägt das Titelbild des 
gleichzeitig erscheinenden Heftes 

- Der Datenträger zur PC International enthält außerdem 
jedesmal ein zusätzliches Bonusprogramm, das nicht im 
Heft abgedruckt ist. 


Einzelbezugspreise für DATABOX: 

3-Zoll-Diskette 




Inland: 


Ausland: 


Einzelpreis 

24,- DM 

Einzelpreis 

24,- DM 

zzgl. Versandkosten 

4,- DM 

zzgl. Versandkosten 

6,- DM 

Endpreis 

28,- DM 

Endpreis 

30,- DM 


Kassette 


Inland: 


Ausland: 


Einzelpreis 

14,- DM 

Einzelpreis 

14,- DM 

zzgl. Versandkosten 

4,- DM 

zzgl. Versand kosten 

6,- DM 

Endpreis 

18,- DM 

Endpreis 

20,- DM 


Zahlungsweise: 

Am einfachsten per Vorkasse (Verrechnungsscheck) oder als Nachnahme zu¬ 
züglich der Nachnahmegebühr. Bei Lieferungen ins Ausland ist Nachnahme 
nicht möglich. 

Bitte benutzen Sie die Bestellkarte. 

DMV-Verlag - Postfach 250 ■ 3440 Eschwege 

■MKHnSaf 
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stu (xlv,P)= 


’\ ((v+l)/2) 

]/(V7r) ' \ (v/2) j/(H-x 2 /v) v+l 


E(X)=0 und Var(X)=v/(v—2) 


Während die Verteilungsfunktionen der 
Student-, Fischer-und Chi-Verteilungen 
nicht mehr analytisch darstellbar sind, 
können die übrigen Verteilungsfunktio¬ 
nen durch Summieren bzw. Integrieren 
gewonnen werden. 

Schränken wir die Verteilung auf das 
Intervall x, < X < x 2 ein, so liefert 
das Integral 
f x2 

F(X) dx = P 

x ' J 

die Wahrscheinlichkeit, daß X zwi¬ 
schen der oberen und unteren Schranke 
liegt. 

Während viele Tests voraussetzen, daß 
der Typ der Grundgesamtheit bekannt 
ist oder gar strenge Voraussetzungen 
diesbezüglich erfüllt, ist es nicht immer 
möglich, den Verteilungstyp zu be¬ 
stimmen. 

Einen Ausweg aus diesem Dilemma 
bietet der CHI-Test. Da die Wahr¬ 
scheinlichkeit auf die Häufigkeiten der 
auftretenden Merkmalsausprägungen 
basiert, zerlegt der CHI-Test eine Da¬ 
tenreihe in Häufigkeitsklassen und 
überprüft die tatsächlich vorliegenden 
Daten mit den "idealen“ Werten der zu 
testenden Verteilung. Die Testgröße ist 
dann chi-verteilt. 


Stichproben 

Da eine Stichprobe nichts anderes als 
eine Funktion von Zufallsvariablen ist, 
ist sie selbst auch eine Zufallsvariable 
und kann durch Wahrscheinlichkeits¬ 
verteilungen beschrieben werden. 

Ohne statistische Haare spalten zu wol¬ 
len. müssen zu guter Letzt noch zwei 
Stichprobenfunktionen näher betrach¬ 
tet werden: 

I. Stichprobenmittelwert Y: 

Für Stichproben vom Umfang n, die 
mit Zurücklegen gezogen wurden, gilt: 

E(Y) = p = arithmetisches Mittel der 
Stichprobe, 

a 2 (Y) = u 2 /n 

ohne Zurücklegen: 

*x>=— 


wobei der Korrekturfaktor für n/N < 
0,05 entfallen kann. 


Ist die Varianz der Grundgesamtheit 
unbekannt, so muß a 2 /n gegen S 2 /n-l 
ausgetauscht werden, wobei S 2 die Va¬ 
rianz der gezogenen Stichprobe ist. 

Die Wahrscheinlichkeitsverteilung des 
Stichprobenmittelwerts kann nur unter 
bestimmten Voraussetzungen angege¬ 
ben werden: 

Ist die Grundgesamtheit näherungswei¬ 
se normal-verteilt und o bekannt, so ist 
der Stichprobenmittelwert mit (ji,cr(Y)) 
normal-verteilt; 

wird ct(Y) mittels S geschätzt, so ist (Y- 
ju)/<j(Y) mit n—1 Freiheitsgraden stu- 
dent-verteilt. 

2. Stichprobenvarianz S 2 : 

Eine Verteilung von S 2 kann nicht di¬ 
rekt angegeben werden, wohl aber die 
der Größe 

U = n S 2 /ct 2 , 

die mit n—1 Freiheitsgraden chi-verteilt 
ist. Durch Umformungen kommt man 
dann zu Aussagen über S 2 . 

Konfidenzintervalle 

Wer bis jetzt durchgehalten hat, besitzt 
nun den Background, um die folgenden 
Schritte zu verstehen und bei Interesse 
die vorgestellten Tests gegen andere 
auszutauschen. 

Beginnen wir mit Konfidenzinterval¬ 
len, wobei zur Vereinfachung eine nä¬ 
herungsweise (fi.a)- normal-verteilte 
Grundgesamtheit vorausgesetzt ist: 

Soll ein Stichprobenmittelwert Y mit 
einer Wahrscheinlichkeit von l-a- in ei¬ 
nem symmetrischen Intervall um p her¬ 
um liegen, so gilt für die Intervallgren¬ 
zen: 

p-/.(l-a/2) <j(Y) < Y < jd-z(l-a/2) o<Y), 

wobei z der Wert der Standardnormal¬ 
verteilung ist, für den P = l-a/2 gilt. 
Diesen Wert liefert die Umkehr-(Qan- 
tils-)funktion: Quantil(l-a/2)=z. 

Die so gefundenen Grenzen bilden ein 
Konfidenzintervall, in dem der Stich¬ 
probenmittelwert Y mit der Wahr¬ 
scheinlichkeit l-a zu liegen kommen 
muß. 

Liegt Y außerhalb des Intervalls, so 
kann davon ausgegangen werden, daß 
Erwartungswert p und Stichprobenmit¬ 
telwert Y nicht identisch sind! 

Ein Konfidenzintervall für p ist dann 
generell durch 

At u = Y - a ct(Y) 
p 0 = Y + a ff(y) 

gegeben, wobei a entweder der Stan- 
dardnormal-(z-Werte) oder der Student¬ 
verteilung (t-Werte) entnommen wird 
und je nach Verteilung der Stichproben 


funktion Y oder (Y-p)/o(Y) drei Fälle 
existieren: 

1. Y (/*,ff)-verteil, a bekannt: 

Grenzen: Y ± z(l-a/2) o/}/(n) 

2. o unbekannt: 

Grenzen: Y ± t(l-a/2) S/]/(n—1) 

3. Stichprobe ohne Zurücklegen: 
a oder S sind mit dem Faktor 
j/((N-n)/(N-l)) zu korrigieren. 

Beliebige Grundgesamtheiten sind für 
n>30 normal-verteilt und die Grenzen 
können wie oben berechnet werden. 

Ein Konfidenzintervall für die Varianz 
der (unbekannten) Grundgesamtheit er¬ 
hält man aus der Stichprobenvarianz 
durch: 

CHI (of/2ln 1) <^CHI(l-a/2ln-l.) 

Nach Umformung: 

<7 2 „= n S 2 /CHI(1—a/2ln—1) 
a 2 (1 = n S 2 /CHI(l+a/2ln—1) 

( Anmerkung: Interessiert nur eine Seite 
des Intervalls, so rechnet man natürlich 
mit a anstelle a/2!) 


Hypothesentests 

Damit sind die elementaren Grundla¬ 
gen der Testtheorie aufgezeigt, und es 
kann getestet werden. 

Grundsätzlich verläuft ein statistischer 
Test analog der Bestimmung von Konfi¬ 
denzintervallen. Einziger Unterschied: 
War bisher bei der Konstruktion der In¬ 
tervallgrenzen die Stichprobe aus¬ 
schlaggebend, so werden die Grenz¬ 
werte nun aus den Werten der “idealen“ 
theoretischen Verteilung errechnet, wo¬ 
bei als Ausgangswert die Nullhypothe¬ 
se, also der Wert, den es zu testen gilt, 
verwendet wird. Die Stichprobe liefert 
nur noch die Werte, aus der eine Test¬ 
größe bestimmt wird, die dann im In¬ 
tervall zu liegen kommen muß, wenn 
der Test positiv beurteilt werden soll. 

Es ergeben sich somit vier Testphasen: 

1. Bestimmung der Signifikanz als vor¬ 
gegebene Irrtumswahrscheinlichkeit; 

2. Bestimmung der “idealen“ Grenzen; 

3. Bestimmung der Testgröße aus der 
Stichprobe; 

4. Testentscheidung. 
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Während Phasen 1 und 4 durch gleich¬ 
bleibende Prozeduren (Signifikanz, 
Nullhypothesc, Entscheidung) reali¬ 
siert wurden, müssen die Intervallgren¬ 
zen für jeden Test gesondert an die Va¬ 
riablen “cu“ und "co“ zugewiesen und 
die Testgröße errechnet werden. 

Durch Austauschen der Testgröße kann 
das Programm nun beliebig erweitert 
werden. 

Standardwerke der Statistik beschrei¬ 
ben Tests für so ziemlich jeden Zweck. 
Die Ermittlung der jeweiligen Testgrö¬ 
ße kann dabei grundsätzlich auf die 
oben vorgestellten Standardverteilun¬ 
gen zurückgeführt werden. Wer also in 
der Algebra “topfit“ ist, der mag die 
Berechtigung der Formeln gern nach¬ 
prüfen ... 

Folgende Tests wurden 
implementiert: 

1. Test auf Mittelwert; 

2. Test auf Varianz; 


3. Test auf Verteilung; 

4. Test auf multiple, partielle und 
bipartielle Korrelation 

sow i e Konfidenzin te rva llbes t i mmung 
für: 

1. Mittelwert; 

2. Varianz; 

3. Korrelation. 

Limitationen 

Nichts geht mehr! Dies gilt in Turbo Pas¬ 
cal für Binominalkoeffizienten über 34, 
beziehungsweise Fakultäten über 33. 
Um diese Grenzen ein wenig zu erwei¬ 
tern. wurden Approximationen, also 
Annäherungen bei der Implementation 
der Verteilungen berücksichtigt, die die 
Rechengenauigkeit aber nicht mehr be¬ 
einträchtigen, als dies durch die geringe 
Stellenzahl ohnehin schon der Fall ist. 
(Es hat ja nicht jeder einen Cray-2 im 
Keller.) 

Dietmar Bückart/rs 


Literatur: 

[lj Hartung, Joachim (et al.): 
Statistik; 

Oldenbourg Verlag, München 1982. 
800 Seiten Lehr- und Handbuch für 
den Praktiker, also auch ohne Nobel¬ 
preis lesbar. Preis ca. 100 DM 
(Sehr zu empfehlen!) 

12] Brandt, Siegmund: 

Datenanalyse; 

Bl-Verlag, Mannheim 1981. 

460 Seiten Einführung mit viel Ma¬ 
thematikhintergrund und Fortran- 
Programmen. Preis ca. 40 DM 


Tr:--.: 

~ | 




(* - 


WriteLn( 



(* 

STATIS.PAS *) 


'PASCAL- 

INTERNATIONAL: STATISTIK 

: 5f>); 

(* 

Statistik in Pascal *) 


WriteLn { 



PROGRAM statistic (Input, Output); 



sacis = ==saaa.=aa:_=;3B|pssscs ' 

:55 ) ; 




WriteLn; 



CONST Zeilen = 30; a v/illkuerliche Grenze fuer 


WriteLn ( 




vectoren und Matrizen U 


'< l > Deskriptive Statistik 

': 55}; 


spalten = 10; a willkuerliche Grenze fuer 


WriteLn( 




array of Vector ü 


'< 2 > Konfidenzintervall fuer Mittelwert 

' :55); 


MaxMat = 30; ä willkuerliche Grenze fuer 


WriteLn( 




quadratische (!) Matrix 11 


'< 3 > Konfidenzintervall fuer Varianz 

’:55); 


MaxReal = +0.1E37; 


WriteLn ( 




MinReal = -0.1E37; 


'< 4 > Konfidenzintervall fuer Korrelation 

':55); 


escape = 27; (* ASCIi-Code fuer ESC-Taste *) 


WriteLn ( 






'< 5 > Hypothesentest auf Mittelwert 


TYPE 

filename - STRINGÄ32Ü; 


WriteLni 




Parametervector = ARRAY Al . .3t) OE REAL ; 


' < 6 > Hypothesentest auf Varianz 

': 55 ); 


Vertoilungstyp = (ber,bin,hyp,poi,expo,gch 


WriteLn i 




,nor ,sta,stu,chi,fis) ; 


'< 7 > Hypothesentes;t auf Korrelation 

':5S>; 


vector - RECORD 


WriteLn 




value. 


'< 8 > partielle Korrelation 

':SS); 


gew : ARRAYAl..ZeilenÜ 


Wri ter.n 




OF REAL; 


'< 9 > bipartielle Korrelation 

':55); 


n ; INTEGER; 


WriteLn( 



ä Zeilen - Rang U 


' <ESC> Progranunende 



END; 


Wrifceln 

writeln; writeln; 



matrix = RECORD 


Writ-e( 'Bitte waehlen Sie. ..' :2i); 



eie : ARRÄYÄl..MaxMat, 


(* Zeichen ohne Bildschi.rmecho von Tastatur 


1..MaxMatÜ OF REAL; 


lesen; *) 



S,2 : INTEGER; ä Spalten/ 


repeat 




Zeilen - 


Read(Kbd, Ch); 



Rang ü 


until (oh in Ä'l'..'9'ü) or (ord(ch) = escape); 


END; 


ClrScr; 

(* Bildschirm loeschen *) 


DatenMatrix - RECORD i 


CASE Ch OF 



zeile': ARRAYAl..spalten 


'1' 

descri.pt ; 



ü OF vector; 


'2' 

milkonfidsnz; 



s,z : INTEGER; 


' 3 ' 

varianzkonfidenz.; 



END; 


'4' 

corrkonfidenz; 





'5 ' 

mitteltest; 


VAR 

ch : CHAR; ö globale Lesevaribale (KBD) ii 


'6' 

varianztest; 



ende : BOülean; ä Variable fuer 


'■/' 

corftest; 



Endlosschleife ü 


'S' 

part corr; 





'9' 

bi corr; 


äSI 

IO. ine ü 


Else ende := true; 


äSl 

lage.ir.c U 


END; 



äSI 

util.ine ü 


UNTIL ENDE; 


aSI 

dichte, inc ii 


END* 



ä$I 

verteil.inc ü 





a$I 

quantile.inc ii 


— 



a$i 

test.inc ü 





äsi 

correl.inc ü 


ä******** 

'»•»■***•** Ji *«'*»**** ***'** ** **************** Ü 




ä* 

30. INC 

*ü 

BEGIN 


a* 

Leserout ine fuer Datenvektor 

*ü 

ENDE := SWLSE; 


S * * ************* ******* ************* ********* * * * * Ü 

REPEAT 


PROCEDURE 

v;a rten; 


ClrScr; 
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BEGIN 

writeln; writeln; 

Write('weiter: Taste druecken ... '); 
REPEAT UNTIL KeyPressed; Writeln; Writeln; 
END; 


function Ja: BOOLEAN; 

var ch: Char; 

begin 

repeat 

read(Kbd, ch); 
ch := Upcase(ch); 
until. ch in Ä'J', 'N'ü; 

Ja ch r. 'j'; WriteLn (ch) ; 
END; 


PROCEDURE readvector (VAR vec : vector); 

VAR datei : TEXT; 

name : fiiename; 
i, n : INTEGER; 


BEGIN 

writeLn; WriteLn; 

Write('Dateneingabe per Tastatur (J/N) ? ')• 
IF Ja THEN 
BEGIN 
REPEAT 
Wr-ite ( 

'Anzahl der Stichprobenelemente(2 oder mehr) : 
ReadLr. (n); 

UNTIL n » I; 
vec.n : = n; 

WriteT..n( 'Bitte die Werte eingeben...'); 
FÜR I := 1 TO n DO 
BEGIN 

Write( 1:4,'-ten Wert eingeben : '); 

Read I.n ( vec. valueÄIü) ; 

END; 

END 

ELSE 

BEGIN 


repeat 

Write( 

'Name der Datei mit den Stichprobenwerten ? '); 
ReadLn(name); 
if length(name) > 0 then 
begin 

Assign(datei, name); 

(*SI~* ) ReSet(datei); (*S1>*) 

i := ioresult; 
if i <> 0 then 

writel n(' I/O-Feh ler II', i,' !!'); 
end; 

until (i =-■ 0) OR (name "); 
if name <> " Lhen 
begin 

ReadLn (da Le i, vec . n); 

POR I := I TO vec.n DO 
ReadLn(datei, vec.valueÄIü); 

C]ose(datei); 
end; 


END; 

writeln; 

END; 

ä--- 

ä Ende IO.INC 


g********************************** ************ 
ä* LAGE.INC 

ä‘ Lageparameter von Datenvectoren 

^* ******** ************************************* 


ü 

ü 


**ü 
* ü 
*ü 
**Ü 


ä arithmetisches Mittel: ü 

PROCEDURE mittel (vec : vector; 

VAR mit, Varianz,standabw: REAL); 


VAR suml, sum2 : REAL; 

i : INTEGER; 


BEGIN 

suml ;= 0 . 0 ; sum 2 := 0 . 0 ; 

FOR I := i to vec.n DO 
BEGIN 

suml :- suml + vec. valueÄIü, 
sum2 := sum2 + vec. valueÄIü * vec. valueÄIü; 
END; 

mit := suml / vec.n; 



varianz :- (sum 2 - mit * suml) / (vec.n - 1 ); 
standabw := Sqrt(varianz); 

END; 

-- - 

ä gewogenes arithmetisches Mittel: ü 

PROCEDURE gmittel (vec : vector; 

VAR mit,varianz, standabw: REAL); 

VAR suml, sum2 : REAL; 

i : INTEGER; 


BEGIN 

suml := 0 ; sum 2 := 
FOR I I 
BEGIN 
suml 
sum2 


0 ; 

TO vec.n DO 


= suml + vec.valueÄIü 
= sum2 i vec.valueÄIü 
* vee.gewÄIÜ; 


vec.gewÄIÜ; 
vec.valueÄIü 


sum 2 - mit * suml) / (vec.n - 1 ); 
Sqrt(varianz) ; 


END; 

mit suml / vec.n; 
varianz 
standabw 
END; 

ä----- - 

ä Utility zum standardisieren einer Stichprobe ü 
PROCEDURE Standard (xvec : Vector; 

VAR svec : Vector); 


VAR xvar, mit, dummy 


REAL; 

INTEGER; 


Sqrt(xvar); 

3 1 TO xvec.n DO 


BEGIN 

mittel(xvec, mit, xvar, dummy); 
svec.n := xvec. n; 

IF xvar > 0.0 THEN 
BEGIN 
xvar : 

FOR i 
BEGIN 

svec. valueÄIü := (xvec.valueÄIÜ-mit ) /xvar; 
svee.gewÄIÜ := xvec.gewÄIü; 

END; 

END; 

END; 

ä -“"7-- 

FUNCTION variationskoeff (vec : vector) : REAL; 

VAR i : INTEGER; 

xmit, sx, dummy : REAL; 

BEGIN 

mittel(vec, xmit, sx, dummy); 
variationskoeff := sx / xmit 
END; 

8 ---ü 

PROCEDURE Spannweite (vec : vector; 

VAR min, max : REAL ); 

VAR i, j : INTEGER; 

BEGIN 

J := vec.n; 
min := MaxReal; 
max :- MinReal; 

FOR I:=l TO J DO 
BEGIN 

IF vec.valueÄIü <min THEN min := vec. valueÄIü? 
IF vec. valueÄIü >max THEN max := vec.valueÄIü; 
END; 

END; 

ä y 

PROCEDURE descript; 

VAR vec ; vector; 

mini, maxi, vz, st, mw : REAL; 

BEGIN 

readvector(vec) ; 
mittel(vec, mw, vz, st); 

WriteLn('Arithmetisches Mittel : ',mw); 

Writel,n( 'Varianz : ',vz); 

WriteLn('Standardabweichung : ',st); 
Spannweite (vec, mini, maxi); 
v/riteLn('Kleinster Wert : ',mini); 

WriteLn( 'Groesster Wert : ',maxi.); 

WriteLn('Variationskoeffizient : ' 
.variationskoeff (vec)); 

warten; 

END; 

ä ---„ 


Ende LAGE.INC 
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ä************************************************Ü 

ä* UTIL.INC *ü 

ä* diverse Hilfsfunktionen *ü 

ä************************************************ü 
FUNCTION power (basis, ex : REAL) : REAL; 

ä nur fuer basis >=0 !!1! U 

BEGIN 

IF'basis = 0 TUEN 

I F ex = 0 THEN power : = i ELSE power : = 0 
ELSE 

IF ex = 0 TUEN power :- l 
ELSE 

IF basis > 0 THEN 

IF ex > 0 THEN power := F.xp(ex*Ln{ basis)) 
ELSE power : = l/Exp(ex*Ln(basis) ) 

END; 


FUNCTION fac (X : REAL ) : REAL; 

VAR sum : REAL; 

i, j : INTEGER; 


BEGIN 

IF Trunc (x) = 0 THEN fac := 1 
ELSE 
BEGIN 

sum : = l; 

FOR I 1 TO Trunc(x) DO sum := sum*I; 
fac := sum 
END 

END; 

8-ü 

FUNCTION gamma (x : REAL) : REAL; 

VAR I : INTEGER; dummy : REAL; 

BEGIN 

dummy := Frac(x); 

IF X = 0.5 THEN gamma := Sqrt(Pi) 

ELSE IF (x > 1.0) AND (dummy = 0.0) THEN 

gamma := fac(Trunc(X-l)) 
ELSE IF x = 1.0 THEN gamma l.ö 
ELSE 
BEGIN 

dummy := 0.5; 

FOR I := 1 TO Trunc(x-l) DO 

dummy ;= dummy*( 1 + 0 .5) ; 
gamma := dummy*Sqrt(Pi); 

END; 

END; 

--u 

FUNCTION binkoeff (a,x : REAL) : REAL; 

VAR I, b, Z : INTEGER; 

dummyl ,dummy2 : REAL; 

BEGIN 

dummyl := l; dummy 2 := 1; 

IF x > a/2 THEN 
BEGIN 

FOR I := Trunc(x)+1 TO Trunc(a) DO 

dummyl : dummyI *I ; 
FOR I 1 TO Trunc(a)-Trunc(x) DO 

dummy 2 := dummy 2 *I; 

END 

ELSE 

BEGIN 

FOR 1 := Trunc(a)-Trunc(x)+l TO Trunc(a) DO 
dummyl := dummyl*1; 
FOR I := l TO Trunc(x) DO dummy2:= dummy2*1; 
END; 

binkoeff := dummyl/dummyZ; 

END; 

8----- ü 

ä Ende UTIL.INC U 


*****************************************»*ü 
ä* DICHTE.INC *ü 

ä* Wahrscheinlichkeiten * u 

q*** ******************************************** *^ 

FUNCTION dichte (v_fkt: Verteilungstyp; 

p: Parametervector; 
x: REAL): REAL; 


VAR a, b : REAL; 

p vec : Parametervector; 

BEGIN 

CASE vjfkt OF 
sta : BEGIN 


dichte:=Exp(-x*x/2.0)/Sqrt(2.0*Pi) ; 


END; 

nor :dichte:-dichte(sta,p_vec,((x-pÄlö)/pX2Ü)) ; 
bin : BEGIN 

IF pÄ2Ü >0.5 TUEN 
BEGIN 

pÄ2d :-- :. 0 -pÄ 2 ü; x :-• pXlü-x; 
END; 

IF x < 0.0 THEN dichte : = 0.0; 

IF x >= 0.0 THEN 

IF pÄlÜ > 48.0 THEN 
BEGIN 

p_vecÄlü := pXlÜ*pÄ 2 y; 
p vecX?.U := Sqrt(pÄlü*pR?.ü* (1.0 
-pÄ2ü)); 

dichte dichte(nor,p_vec, (x 
+0.5)) - 

dichtet nor,p_vec, (x 
-0.5)); 

END 

ELSE 

dichte := binkoeff(pX2ü,x) 

* power(pX 2 t),x) 

* power (( 1 . 0 -pS. 2 ü), 
(pXlü-x)) ; 


END; 

hyp : BEGIN 

a :- 0.0; 

IF(pÄ3Ü+pX2Ü-pXlÜ)>a THEN a:=pÄ3ü 

+ P X2Ü-pXlÜ; 

b := pX3Ü; 

IF pX20 < pÄ3ü THEN b p»2Ü; 

IF (X >= a) AND (x b) THEN 

IF ( (pÄ2ü/pXlü) >0.1) AND ((pÄ2Ü 
/pXlü) < 0.9) AND ((pX3Ü/pXiÜ) 

< 0.05) AND (pÄ3ö > 20.0) THEN 
BEGIN 

p_vecÄlü := pÄ3Ü; 
p_vecX2Ü := pR 2 Ü/pXlü; 
dichte dichte(bin,p_vec ,x); 

END 

ELSE IF ((pÄ2Ü/pÄ2Ü) >0.1) 

AND ((pÄ2Ü/pXlÜ) < 0.9) 

AND ( (pÄ3ü/pXlü ) < 0.05) 

AND (pX3Ü > 30.0) THEN 
BEGIN 

a := (pÄ 2 Ü/pXlü); 
b ( p Xl(j-pÄ3Ü)/ (pÄlO-1.0); 
p_vecXlÜ := pÄ3Ü*a; 
p_vecX2Ü := pÄ3Ü*a*(1.0-a)*b; 
dichte:=dichte(nor,p_vec, (x+0.5)) 
- dichte{nor ,p ...vec, (x- 0 .5 )); 

END 


ELSE 

BEGIN 

a := binkoeff(pX2ü,x)»binkoeff 
((pÄlli-pÄ2ü), (pÄ3ü-x)) ; 
b := binkoeff(pXlÜ,pX3Ü); 
dichte := a/b; 

END 

ELSE dichte :- o.o; 

END; 


expo : BEGIN 

TF x >= 0.0 THEN 
dichte pÄlt)*Exp(-pÄlü*x) 
ELSE dichte := 0.0; 

END; 

geh : BEGIN 

IF X > 0.0 THEN 
dichte :- 1.0/ (pX2U-pÄlü) 
ELSE dichte := 0.0; 


END; 

poi : BEGIN 

IF x < 0.0 THEN dichte := 0.0; 

TF X >= 0.0 THEN 
IF pÄIt) 14.0 THEN 
BEGIN 

p_vecÄlü := pXlü; 
p_vecÄ2Ü := Sqrt(pÄlÜ); 
dichte := dichte (nor,p_vec,(x+0.5)) 
- dichte(nor ,p_vec:, (x- 0 .5)) ; 

END 

ELSE 

dichte :- power(pÄlü,x)/fac(x) 

* Exp(-pXlÜ) 

END; 


Stu : BEGIN 

IF pXlü >0.0 THEN 
IF pÄlÜ > 60.0 

THEN dichte dichte(sta,p vec,x) 
ELSE 
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BEGIN 

a : = gamma((pÄlü+l.o)/2.0) 

* power((l.o+Sqr(x)/pÄlU), 
-(pÄlÜ+1.0)/2.Ö); 
dichte := a/gamma(pÄlÜ/2.0) 
/Sqrt(pÄiO*Pi); 


END; 


chi 


0 . 0 ; 


Cis 


ber 


END; 
END; 
ä- 


END; 

BEGIN 

IF x <= o.o tuen dichte 
IF x > 0.0 THEN 

IF pÄlü > 100.0 THEN 
BEGIN 

p_vecfilÜ := pÄlÜ; 
p_vecX2ü := Sqrt(2.0*pÄiü); 
dichte := dichte{nor,p vec,x); 
END 
ELSE 
BEGIN 

a := power(x,(pÄlü-2. 0 )/2.0) 

/ gamma(pÄlü/2.0); 
b := Exp(-x/2.0) 

/ power(2.0,pXlü/2.0); 

dichte := a»b; 

END 

END; 

BEGIN 

IF ((pÄHM.O) AND (pÄ2(]>200.0 >) THEN 
BEGIN 

p_vecÄlU := pÄlü; 

dichte := dichte(chi,p vec,x); 

END 

ELSE 

BEGIN 

a : = gamma< (pÄlÜ+pÄ 2 ü)/ 2 . 0 ) / 
gamma(pÄl0/2.0)/gamma(pS2 ü 
/2.0); 

b := power (x,pXlt)/2.0-1.0) / 
power(x*pÄlÜ+pS2ü,(pÄlü 

+p& 2 (!)/ 2.0 ) ; 

dichte : = a*b*power (pÄlÜ,pÄ2(J 

/2.0)"power(pÄ2Ü,pX2ü 
/2.0); 

END; 

END; 

BEGIN 

IF x = 0.0 THEN dichte := 1.0-pÄlU 
ELSE IF x = 1.0 THEN dichte := pÄlü 
ELSE dichte : = 0.0; 

END; 


Ende DICHTE.INC 


ä* * ' 

8 * • 


*■**********,***,**».***»**»,.*****, 
VERTEIL.INC 


******* 


* Li . 1 HL fQ 

FUNCTION verteil (v_fkt: Verteilungstyp; 

p: Parametervector; 
x: REAL): REAL; 

CONST al = 0.31938153; 
a2 =-0.356563782; 
a3 = 1.781477937; 
a4 =-1.821255978; 
a5 = 1.330274429; 

VAR t : d nmmv? ER H Signum : BOOLEAN; 

t, dummyl, dummy2, dummy3, dummy4 : REAL; 
p_vec . p arame t er - vec t or . 

BEGIN 

CASE V_fkt OF 
ber : BEGIN 

IF x < o.o THEN verteil ;= o.o 
ELSE IF X >= 1 THEN verteil := l.o 
ELSE verteil := 1.0-pÄlü; 

END; 

poi : BEGIN 

dummyl : = 0 .0; p_vecXlÜ := pÄlü; 

FOR i := 0 TO Trunc(x) DO 
dummyl := dummyl+dichte(poi,p vec.i) - 
verteil:= dummyl; 

END; 

expo : BEGIN 

IF x < o.o THEN verteil: =0.0 
ELSE verteil := 1 .0-Exp(-pÄ!Ü*x); 


CP/M 


bin 


hyp 


END; 

BEGIN 

IF x < 0.0 THEN verteil := 0.0 
ELSE IF x >= pÄlt) THEN verteil:^.0 
ELSE BEGIN 

dummyl := o.o; 
p_vecÄlO : = pÄlü; 
p_vecÄ 2 Ü := pÄ 2 Ü; 

FOR I := 0 TO Trunc(x) DO 
dummyl:=dummyi 

+dichte(bin,p_vec,I); 
verteil := dummyl; 

END; 

END; 

BEGIN 

dummyl := 0 . 0 ; 

IF ((pÄ3ü+pX2ü-pÄiü) > dummyl) THEN 
dummyl := pÄ3Ü+pÄ2Ü-pÄlÜ; 
dummy2 := pÄ3ü; 

IF PÄ2Ü < pX3Ü THEN dummy2 := pÄ2ü; 

IF x >= dummy2 THEN verteil := 1.0 
ELSE IF x < dummyl THEN verteil: =0.0 
ELSE 
BEGIN 

dummy3 := 0 . 0 ; 
p_vecÄlü := pÄlO; 
p_vecÄ 2 ü := pÄ 20 ; 
p_vecÄ3ü := pÄ3ü; 

FOR I := 0 TO Trunc(x) DO 
dummy3 := dummy3 

* dichte(hyp,p_vec, 1 ) ; 
verteil := dummy3; 

END; 

END; 

BEGIN 

t := 1. 0/(1. 0+x*0.2316419); 

IF x < 0.0 THEN 
BEGIN 


signum 
dummyl 
END 
ELSE 
BEGIN 
signum 
dummyl 
END; 
dummy2 


TRUE; 

-1.0*x; 


:= FALSE; 


nor 

END; 
END; 
ä- 


al*t+a2*t*t+a3*t*t*t+a4*t 
*t*t*t+a5*t*t*t*t*t; 

dummy3 := Exp(-x*x/2.0)/Sqrt(2.0*Pi); 
dummyl := 1.0-dummy3*dummy2; 

IF NOT signum THEN verteil := dummyl 
ELSE verteil := 1.0-dummyl; 

END; 

verteil := verteil(sta,p vec,(x-pÄiO) 
/pÄ2ü); 


Ende VERTEIL.INC 


a QUANTILE.INC * U 

S* Umkehrfunktionen der Standardverteilungen *U 

a**» "***.****»**.,*****.. ****.********, (r ***,* ll ,,. ü 
FUNCTION quantil (v_fkt: Verteilungstyp; 

p: Parametervector; 

x: REAL): REAL; 

ä 0 <= x <= 1 fuer alle x !!! ti 

VAR a, b, c, d, dummyl, dummy2 : REAL; 
signum . ßOOLEAN; 

p - vec : Parametervector; 


REAL) : REAL; 


FUNCTION korrektur (x 
CONST a0 = 2.515517; 
al = 0.802853; 
a2 = 0.010328; 
bl = 1.432788; 
b2 = 0.189269; 
b3 = 0.001308; 

VAR t : REAL; 


BEGIN 

t := Sqrt(-2. 0*Ln(1.0-x)); 

korrektur := t-(a 0 +al*t+a 2 *t*t)/( 1 . 0 +bl*t+b 2 

*t*t+b3*t*t*t); 

END; 
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BEGIN ä quantil ü 
GASE V_fkt OE 
expo : BEGIN 

quantil := -1.0* (Ln(1.0-x))/pÄlÜ; 

END; 

sta : BEGIN 

IF X <= 0.5 THEN BEGIN 

signum := TRUE; 
dummyl := 1 . 0 -x; 

END 

ELSE BEGIN 

signum := FALSE; 
dummyl := x; 

END; 

IF NOT signum TUEN 

quantil := korrektur (dummyl) 
ELSE quantil :=-l .0*korrektur (dummyl ) ; 
END; 

nor : BEGIN 

dummyl := quantil(sta ,p_vec,x); 

quantil := pXlÜ+dummyl*p&2ü; 

END; 

stu : BEGIN 

IF X <= 0.5 THEN BEGIN 

signum := TRUE; 
dummyl := 1.0-x; 

END 

ELSE BEGIN 

signum FALSE; 
dummyl := x; 

END; 

c (pÄlü-5.0/6.0)/Sqr(pRlO-2.0/3.0 

+o.l/p&iü); 

dum;ny2 sqrt(pXlÜ*Exp(c 

»Sqr (korrektur (dummyl ) ) )-pXlü) ; 
IF NOT signum THEN quantil : = dummy2 
ELSEquant.il -1. Q*dummy2; 

END; 

chi : BEGIN 

dummyl I. 0 - 2 .0/(9. 0*pÄlU) 

+korrektur(x)»Sqrt(2.0/( 9 .0*pRiU)) ; 
quantil : = pÄlü*dummyl ‘dummyl *duramyl; 
END; 

fis : BEGIN 

IF X 0.5 THEN BEGIN 

signum := TRUE; 
dummyl : = 1 . 0 -x; 

END 

ELSE BEGIN 

signum : = FALSE; 
dummy; :- x; 

END; 

C (Sqr (korrektur(dummyl))-3.0)/6.0; 

d 1.0/(pÄlü-1.0)*1 .0/(pÄ2Ü-1.0); 

b :=- 2.0* (1.0 / (pÄlÜ-1.. 0) -1.0 

/(pÄ2ü-l.0))*(c*5.0/6.0-d/3.0); 
a ;= sqrt(2.0*dtc*d‘d); 
dummy2 := Exp( korrektur (dummyl)*a*b); 
IF NOT signum THEN quantil := dummy2 
ELSE quantil l.0/dummy2; 

END; 

END; 

END; 


ä Ende QUANTILE.INC ü 


jj* ***********************************************u 

8* TEST. INC *ü 

ä***************.**************«.**..************ü 
PROCEDURE Signifikanz (VAR alpha : REAL); 

BEGIN 

REPEAT 

Write('Vorgabe der alpha-Signif ikanz in 1 : '); 
ReadLn(alpha); 

UNTIL (alpha > 0.0) AND (alpha < LOO.O); 
alpha := alpha/ 100 . 0 ; 

END; 

ä --- ü 


PROCEDURE Seitenanzahl (VAR seiten : INTEGER; 

VAR tcu, tco : BOOLEAN); 

BEGIN 

REPEAT 

Write('Ein- oder zweiseitig (1 oder 2 ) V '); 
ReadLn(selten); 


IF seiten = 1 THEN 
BEGIN 
WriteLn( 

' <U> fuer Test auf Abweichungen nach unten '); 

write( 

' <0> fuer Test auf Abweichungen nacn oben ), 
Read(Kbd, ch); 
ch : 15 upCase (ch) ; 
writeln(ch); Writeln; 

IF ch = '0' THEN tcu : = TRUE; 

IF ch - 'O' THEN tco TRUE; 

END; 

UNTIL seiten IN Ä1..2Ü; 

END; 

ä- 

PROCEDURE nullhypothese (VAR hO : REAL ); 

BEGIN 

Write('Wert der zu testenden Hypothese ? '); 

ReadLn(hO); 

END; 


PROCEDURE zuruecklegen (VAR zurueck ; BOOLEAN); 
BEGIN 

Wnte( 'Stichprobe mit Zuruecklegen (J/N) ? ); 

zurueck := Ja; 

END; 

- -- 

PROCEDURE Konfidenz (mw, cu, co : REAL); 

BEGIN 

GotoXY(20,18); 

WriteLn{ 'Stichprobenmittelwert 
,mw:l1;4); 

GotoXY(20,19); 

W.r.iteLn( 

'Untere Konfidenzgrenze : ',cu:11 :4); 

GotoXY (20,20); 

WriteLn( 'Obere Konf .idenzgrenze : ' 

,co:11; 4 ) ; 

END; 

ä-----U 

PROCEDURE entscheidung ( test,alpha ,h0,cu, co: REAL; 

seiten : INTEGER; 

tcu, tco ; BOOLEAN); 

CONST msg =' Die Hypothese wird abgelehnt : '; 

VAR sig : REAL; 

BEGIN 

sig : = ( 1 . 0 -alpha*seiten)* 100 .0; 

IF seiten * 2 THEN 

IF ((test < cu) OR (test > co)) THEN 
writeLn(msg) 

ELSE 

WriteLn (ho: 11: 2, ' wird zum Niveau ',sig:4:2, 
'% akzeptiert.') 

ELSE IF seiten = 1 TUEN 
IF tcu THEN 

IF test. < cu THEN WriteLn(msg) 

ELSE 

WriteLn(hO :1 1:2,' wird zum Niveau 
sig: 4:2,'% akzeptiert.') 

ELSE IF tco THEN 

IF test > co THEN WriteLn(msg) 

ELSE WriteLn(h0:11:2,' wird zum Niveau 
sig: 4: 2 ,'% akzeptiert.'); 


warten; 

END; 

ü--Ü 

PROCEDURE mitint (zurueck : BOOLEAN; 

n : INTEGER; 

alpha, hO, sx : REAL; 

VAR cu, co : REAL); 


VAR 1, Z : REAL; 

p : parametervector; 

BEGIN 

L := 0.0; 

REPEAT 

Write('Die Groesse des Loses ( > 0) ? '); 
ReadLn(L); 

UNTIL (L > 0.0); 

Writ.e( 

'Standardabweichung des Loses bekannt (J/N) ? '); 
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IF Ja TUEN 
BEGIN 
REPEAT 

write( 

'Wert der Standardabweichung des Loses ( > o): '); 
ReadLn(sx); 

UNTIL SX >= 0.0; 

IF zurueck THEN sx := sx/Sqrt(n) 

ELSE IF (n / L < 0.05) THEN sx :- sx/Sqrt(n) 
ELSE sx sx/Sqrt (n) *Sqrt((L-n )/(L-l. 0)); 

z := quantil(nor, p, 1 . 0 -alpha); 

END 

ELSE 

BEGIN 

IF zurueck THEN sx := sx/Sqrt(n-I.0) 

ELSE IF (n/L < 0.05) THEN sx := SX/Sqrt(n-l) 
ELSE sx sx/Sqrt(n-l)*Sqrt((L-n)/L); 

IF n > 29 THEN z: =quarit:i 1 (nor, p, 1.0-alpha) 
ELSE BEGIN 

pÄXÜ : ^ n- 1 . 0 ; 

z quantil (stu, p, l.o-alpha); 

END; 

END; 

cu := hO - z * sx; 
co : = ho -i z * sx ; 

END; 

ä--- 

PROCEDURE mitkor.f i.denz; 

VAR alpha, hO, mw, sx, cu, co, duramy : REAL; 

seiten - . INTEGER; 

zur, tcu, tco : BOOLEAN; 

vec : vector; 

BEGIN 

readvector (vec) ; 
signifikar.z(alpha) ; 
alpha alpha/ 2 . 0 ; 
zuruecklegen(zur); 
mittel(vec, mw, dummy, sx); 
hO := mw; 

mit int- (zur, vec.n, alpha, hO, sx, cu, co); 
WriteLn( 'Stichprobenstandardabweichunq : ' 

, sx: 3 1 :•'.); 

Konf idenz(mw, cu, co); 
warten; 

END; 


•ü 


PROCEDURE mitteltest; 

VAR resL,hO,a 1 pha,cu,co, mw, sx, dummy 
seiten 

zur, tcu, tco 
vec 


REAL; 
INTEGER; 
BOOLEAN; 
vector; 


BEGIN 

readvector(vec); 

signifikanz(alpha); 

Seitenanzahl (seiten, tco, t.ca); 
zurueck! euer, ( zur); 
alpha := alpha/seiten; 
nullhypothese(hO); 
mittel (vec, mw, dummy, sx); 
test := mw; 

mitint (zur, vec.n, alpha, hO, sx, cu, co); 
writeLn( 'Stichprobenstandardabweichung : 

, sx : 11: 4 ) ; 

Konfidenz(mw, cu, co); 

entscheidung( test, alpha,hO,cu,co,seiten,tcu,tco)• 

END; 

ä ----ü 

PROCEDURE varianzint (VAR cu, co 


REAL; 

n : INTEGER; 

alpha, vx : REAL); 


VAR p : parametervector; 


BEGIN 

pÄlÜ := n- 1 . 0 ; 

cu := pÄlt) * vx / quantil(chi, p, 1.0-alpha); 
co := pKlü * vx / quantil.(chi, p, alpha); 

END; 

-- 

PROCEDURE var.ianzkonfidenz; 

VAR alpha, mw, vx, cu, co, dummy : REAL; 

seiten : INTEGER; 

tcu, tco : BOOLEAN; 


: vector; 


BEGIN 

readvector( vec ); 

Signifikanz(alpha); 
seitenanzahl ( seiten, tcu, tco); 
alpha alpha/seiten; 
mittel(vec, mw, vx, dummy); 
varianzint(cu, co, vec.n, alpha, vxj; 
Writel,n( 'Stichprobenvarianz 
, vx:11:4) ; 

Kon£idenz(mw, cu, co); 
warten; 

END; 

ä - 

PROCEDURE varianztest; 


VAR test,hO,mw,vx,cu,co,alpha,dummy : REAL; 

seiten ; INTEGER; 

ccu ' tco : BOOLEAN; 

vec : vector; 

BEGIN 

readvector(vec) ; 
signifikanz(alpha); 

Seitenanzahl(seiten, tcu, tco); 
alpha := alpha/seiten; 
nullhypothese(hO) ; 
mittel(vec, mw, vx, dummy;; 
test := vx; 

varianzint(cu, cfr, vec.n, alpha, vx); 
writeLn('Stichprobenvarianz : ' 

,vx:11:4 ); 

Konf idenz(mw, cu, co); 

entscheidung(test,aIpha,hO,cu,co, seiten , tcu, tco); 
END; 

-——— ü 

ü 


Ende TEST.INC 


ä***> 
ä* 
ä* 

ä********** 


*****.***.******,******,****,*********** ü 
CORREL. INC « ü 

Routinen fuer Korrelationstests *u 

******************t***«***********,»***^ 

FUNCTION covariance (veci, vec2 : vector) : REAL; 

VAR i : INTEGER; 

xmw, ymw, dummy : REAL; 

BEGIN 

IF vecl.n = vec2 . r. TUEN 
BEGIN 

mittel(vec l, xmw, dummy, dummy); 
mittel(vec 2 , ymw, dummy, duramy); 
dummy := o; 

FOR I ;= l TO vecl.n DO 
dummy: =dummy>-veci. valueÄlU*vec2 . valueÄIt); 
covariance (dummy - veci .n*xmw*ymw); 

END 

ELSE covariance := 0; 

END; 

---.-- U 

IUNCTION pearsori (xvec, yvec ; vector) : REAL; 

VAR xsuml, xsum2, ysuml, ysum2 , dummy ,dummy2, iielpi, 
help2 : REAL; 

I : INTEGER; 

BEGIN 

dummy := 0 . 0 ; 
xsuml : 0.0; 

xsum 2 :- 0 . 0 ; 
ysuml := 0.0; 
ysum 2 0 . 0 ; 

FOR I := 1 TO xvec.n DO 
BEGIN 

dummy; =dummy4 X vec. valueXlü*yvec. valueÄI t) ; 
xsum 1 : =xsuml >xvec.va1 ueXl0; 

xsum2 :=xsum2 rxvec.vaiueÄI(J*xvec.valueÄIü; 

ysumi:=ysuml+yvec. valueXlÜ; 

ysum2:^ysum24yvec.valueÄIÜ*yvec.valueXlü; 

END ; 

helpi := xsuml *xsumi /xvec. n; 
he:p 2 ysuml *ysuml/y vec.n; 

dummy 2 (xsum 2 - helpi ) * (ysum 2 - help 2 ); 

IF dummy2 > 0.0 THEN 

pearson : = (duramy-xsumi ‘ysiiml/xvec. n WS0RT(dummy2 ) 
ELSE 
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WRlTEln ('Produkt der Varianzen ist Null ! '); 
END; 

- -- 

ä errechnet Korrelationsmatrizen f f nehr atj 
zwei Vektoren, also Matrizen ü 
PROCEDURE corr_matrix (xmat.ymat : datenmatrix; 

VAR corrmat ; matrix); 

VAR i,j : INTEGER; 

BEGIN 

corrmat.z := xmat.z; corrmat.s := ymat.z; 

FOR I := 1 TO xmat.z DO 
FOR J := 1 TO ymat.z DO 
corrmat.eleÄI,JÜ:=pearson(xmat.zeiieftlO, 
ymat.zeileÄJÜ); 

END; 

ä- 

ä Utility fuer Korrelationsberechnungen s. ü 

ä Literatur ü 

Sinv = false ===> Normalisierung:z :=arctanh(rxy)ü 

Sinv = true ===> Ruecktransformierung ü 

FUNCTION z_trans (rxy ; REAL; 

inv : BOOLEAN) : REAL; 

BEGIN 

1F inv THEN 

z_trans ;= (EXP(2.o*rxy)-l.0)/(EXP(2.0*rxy)+l.0) 
ELSE 

IF (l.O-ABS(rxy)) > 0.0 THEN 
z_trans := LN((l.0+rxy)/(1.o-rxy))/2.0; 

END; 


-ü 


PROCEDURE corrtest; 


VAR test, alpha, ho, rxy, co, dummy : REAL; 

vecl, vec2 : vector; 

tcu, tco : BOOLEAN; 

seiten : INTEGER; 

p : parametervector; 

BEGIN 

writeln; WRITELN('Erster Datenvector :'); 
readvector(vec1); 

writeln; WRITELN('Zweiter Datenvector :'); 

readvector(vec2); 

signifikanz(alpha); 

nullhypothese(hO); 

rxy := pearson(vecl, vec2); 

seiten := 1; tco := TRUE; tcu := FALSE; 

IF (1.o-ABS(rxy) > 0.0) AND (vecl.n > 3.0) THEN 
IF ho <> 0.0 THEN 
BEGIN 

test := z_trans(rxy,FALSE) 

-z_trans(ho,FALSE)-h0/(2.0 
*(vecl.n-I.0)); 

test := ABS(test*SQRT(vecl.n-3.0)); 
co quantil(sta, p, 1.0-alpha); 

END 

ELSE 

BEGIN 

test := rxy*SQRT(vecl.n-2.0)/SQRT(l.0 
-rxy*rxy); 
p&lü := vecl.n-2.0; 
co := quantil(stu, p, 1.0-alpha); 

END; 

entscheidung(test,alpha,ho,dummy,co,seiten,tcu, 
tco); 

warten; 

__ 

PROCEDURE corrkonfidenz; 

VAR cu, co, alpha, rxy, dummy : REAL; 

vecl, vec2 : vector; 

p vec : parametervector; 

BEGIN 

writeln; WRITELN('Erster Datenvector : ); 

readvector(vecl); 

writeln; WRITELN('Zweiter Datenvector : ); 
readvector(vec2); 

Signifikanz(alpha); 
rxy := pearson(vecl, vec2); 
dummy := quantil(sta,p_vec,1.0-alpha/2.0) 
/SQRT(vecl.n-3.0); 
cu := z_trans(rxy,FALSE) 

+ rxy/(2.0*(vecl.n-l.0)) - dummy; 

co := z trans(rxy,FALSE) 


+ rxy/(2.0*(vecl.n-l.0)) f dummy; 
cu := z_trans(cu, TRUE); 
co := z”t rans ( co < TRUE >; 
konfidenz(rxy, cu, co); 
warten; 

f D; _ü 

-- 

PROCEDURE part__corr; 

VAR rxy,rux,ruy,test,alpha,h0,co,dummy : REAL; 
vecl, vec2, vec3 : vector; 

p : parametervector; 

seiten 


tcu, tco 


INTEGER; 

BOOLEAN; 


BEGIN 

writeln; 

WRITELN('Erster Datenvector :'); 

readvector(vecl); 

writeln; 

WRITELN('Zweiter Datenvector : '); 

readvector(vec2); 

writeln; 

WRITELN('Dritter Datenvector : '); 

readvector(vec3); 

rxy := pearson(vecl, vec2); 

rux := pearson(vecl, vec3); 

ruy := pearson(vec2, vec3); 

Signifikanz(alpha); 
nullhypothese(hO); 

seiten := 1; tcu := FALSE; tco := TRUE; 
dummy := (rxy-rux*ruy)/SQRT((1.0-rux*rux)*(1.0 
-ruy*ruy)); 

test := ABS(dummy*SQRT(vecl.n-3.0)/(l.0-dummy 
*dummy)); 

pÄlü := vecl.n-3.0; 

co := quantil(stu, p, l.0-alpha/2 .0); 
entscheidung(test,alpha,hO,dummy,co,seiten,tcu, 
tco) ; 

warten; 

END; 

-- 

ä Test auf Nicht-Korrelation h0:=0 

PROCEDURE bicorr; 

VAR rxy, rxu, rxv, ryu, 

ryv, ruv, test, alpha, 

co, hO, dummy, dummy1, 

dummy2 : REAL; 

p : parametervector; 

vecl, vec2, vec3, vec4 : vector; 

seiten : INTEGER ; 

tcu, tco • BOOLEAN; 

BEGIN 

writeln; WRITELN('Erster Datenvector :'); 
readvector(vecl); 

writeln; WRITELN('Zweiter Datenvector :'); 
readvector(vec2); 

writeln; WRITELN('Dritter Datenvector : ');. 
readvector(vec3); 

writeln; WRITELN('Vierter Datenvector : '); 
readvector(vec4); 
signifikanz(alpha); 
nullhypothese(hO); 
seiten := 1; 
tcu := FALSE; 
tco := TRUE; 

rxy := pearson(vecl, vec2); 
rxu := pearson(vecl, vec3); 
rxv := pearson(vecl, vec4); 


ryu := pearson(vec2, vec3); 
ryv ;= pearson(vec2, vec4); 
ruv 
dummy1 
dummy2 
dummy1 
test := 


pearson(vec3, vec4); 

._ rxy _ rxu*ryu - rxv*ryv *• rxu*ryv*ruv; 

;= SQRT{(1.0-rxu*rxu)*(1.o-ryv*ryv)); 

:= dummy1/dummy2; 

= ABS(dummy1*SQRT((vecl.n-3.0)/(1.0 
-dummyl‘dummy1 ))); 

pÄlÜ := vecl.n-3.0; 

co := quantil(stu, p, 1.0-alpha/2 .0); 
entscheidung(test,alpha,hO,dummy,co,seiten,tcu, 
tco); 

warten; 

™°--...--- 

ä Ende CORREL.INC ü 
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100 DM 
für 1 kByte 

Alles, was das Herz begehrt 

Wer selber viel auf dem CPC programmiert, wird si¬ 
cherlich in dieser Rubrik manch nützliche Routine zum 
Einbau in seine eigenen Programme finden. Auch diesen 
Monat sollten Sie das Studium der 1-kByte-Programme 
nicht vergessen. 


Drucker 


Eine Druckersteuerung kann man immer gebrauchen Mit 
diesem Programm sind Sie in der Lage, die wichtigsten und 
meist nicht am Drucker einstellbaren Schriften über''ein kom¬ 
fortables Menü auszuwählen. Die Tastenbelegung wird in der 
Menüleiste am oberen Bildschirmrand angezeigt. Alle 
Schriften können gesetzt und auch wieder gelöscht werden. 
Ist eine Schrift ausgewählt, wird diese am Bildschirm unter¬ 
st! ichen dargestellt. Die Wirkung aller vom Programm ,T e- 
setzten Schriften ist mit dem Menüpunkt Druckprobe zu se¬ 
hen. Hierbei werden der Druckcode und der Schriftname 
ausgedruckt. Bei Beenden des Programms mit Ende werden 
nur die Druckcodes, gefolgt von einem Zeilenvorschub, an 
den Drucker geschickt. 


Bogen schießen 

Wei bei diesem Spiel als strahlender Gewinner hervorgehen 
will, muß mit einem Bogen, der sich am linken Bildschirm¬ 
rand auf- und abwärts bewegt, auf eine Zielscheibe schießen. 
Da der Bogen sich automatisch mit immer schneller werden¬ 
der Geschwindigkeit bewegt, sollten Sie die Hand direkt über 
die Leertaste halten, da Sie sonst nie die Scheibe treffen. Es 
ist zu empfehlen, bei der Auswahl am Anfang des Spiels zu¬ 
nächst die große Zielscheibe zu wählen, denn das Spiel ist — 
sobald Sie die Zielscheibe verfehlen - beendet. 

Christian Bergmann/rs 


r b -- —— e - «uiuw iui ucKer ge¬ 

schlichen. Die Codes anderer Drucker können anders lauten 
und müssen dann in Zeile 10 geändert werden! Die Variable 
s-7 benennt die Anzahl der Schriften. Diese ist bis auf zehn 
Schuften ergänzbar, ohne daß ein Zeilenvorschub auftritt 
Mit “a$p“ wird der Kurzname der Schriften definiert, wäh¬ 
rend "d$()*‘ die Codes in Kurzform und ohne vorangestellten 
Escape-Code "CHR$(27)“ angibt. In Zeile 100 wird der Es- 
capc-Code dann den Druckcodes wieder vorangestellt und so 
zum ursprünglichen Gesamtcode ergänzt. Am Beginn der 
Zeile 100 ist noch ein Code als “d$(0)‘‘ definiert. Dies ist der 
Code, der einen Drucker-Reset auslöst. Auch hier muß even¬ 
tuell ein anderer Wert eingesetzt werden! 

Rüben Rimmler/rs 


Fight 

Im Jahre 3001 wird die Erde von Außerirdischen mit Hyper¬ 
bomben beschossen. Ihre Aufgabe ist es, die herunterfallcn- 
den Bomben mit einer Laserkanone zu vernichten. Dazu be¬ 
wegen Sie das Fadenkreuz mit dem Joystick auf die Bombe 
und aktivieren durch Drücken des Feuerknopfs den Laser. 
Achtung! Das Fadenkreuz kann nur waagerecht und senkrecht 
bewegt werden. Ebenso ist eine Benutzung des Lasers nur 
möglich, wenn er absolut still steht. Beendet ist das Spiel, so¬ 
bald drei Hyperbomben die Erde getroffen haben. 

Holger Willms/rs 


Dr. Press 

Dieses Programm ist ein Kompressor für Bildschirmabdrücke 
Wird er gestartet, fängt er sogleich an. die DATAs in den Spei¬ 
cher zu bringen. Das dauert eine gewisse Zeit . Nach dieser 
Phase erscheint ein Fragezeichen mit einem Cursor auf dem 
Monitor. Nun müssen Sie den vollständigen Namen der zu kom¬ 
primierenden Datei eingeben. Nachdem Sie < ENTER > oder 
< RETURN> gedrückt haben, wird die Datei geladen. 
Hierbei wird der Modus nicht verändert, was jedoch keine 
negative Auswirkung hat. Dann erfolgt die Komprimierung. 
Diese Phase dauert etwas fünf Sekunden. Anschließend wird 
noch cm Expander angehängt und mit einer neuen (kürzeren) 


t±=CURSOR ENTER=MAHL D=DRUCKPROBE E=ENDE 



Fett-Druck 
4 Breit-Druck 
Kursiv-Druck 
Hikro—Druck 


Hihi I: Mn dem hin{ramm DRUCKhR ist am komjonuhh lünsicllmt •• 
jedes Druckers möglich 



lidd 2; Bogenschießen will gelernt sein. Will „um dies auf dem CRC um 
muß man sehr reaktionsschnell sein 
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Länge wieder abgespeichert. Das File finden Sie unter dem 
Namen im Verzeichnis wieder, den Sie am Anfang eingege¬ 
ben haben. Ihre alte Datei besitzt nun die Extension “.BAK“. 
Das neue File kann an jede beliebige Stelle im RAM geladen 
werden. Um dies zu tun, geben Sie folgendes ein: 

10 MEMORY start-l 
20 L0AD u name.ext“,Start 

Wenn Sie Ihr Bild wieder auf dem Monitor sehen wollen, ge¬ 
ben Sie ein: 

30 MODE IQ 

40 CALL Start,Start 

Hierbei muß hinter dem CALL zweimal die Adresse angege¬ 
ben werden, damit der Expander weiß, an welcher Stelle ei 
zu beginnen hat. 

Wolfgang Stengel/rs 

Sierpinski-Dreiecke 

Dieses Programm zeichnet nach Eingabe gewisser Werte so¬ 
genannte Sirpinski-Dreiecke. Zuerst geben Sie die Ordnung 
ein, maximal fünf, weil sonst das Zeichnen zu lange dauern 
würde. Außerdem wären die einzelnen Dreiecke (oder Krei¬ 
se) zu klein, um sie noch erkennen zu können. Daraufhin 
fragt der Computer Sie nach der Form. Wenn Sie “d" anwäh¬ 
len, besteht die Pyramide später aus lauter Dreiecken. Wäh¬ 
len Sic “k“, besteht sie aus lauter Kreisen. 

Die nächste Frage lautet, ob die Dreiecke (beziehungsweise 
Kreise) ausgefüllt sein sollen oder nicht. Beantworten Sie 
diese Frage mit der Taste “j“ oder “n“. Je nachdem, was Sie 
hier eingeben, wird die Grafik etwas verändert. 

Nun wird die Grafik gezeichnet. Ist der Computer fertig, 
können Sie die Werte neu eingeben und eine andere Grafik 
zeichnen lassen. 


Wichtig: Leider läuft das Programm nur auf einem CPC 
664/6128 oder aber auf dem CPC 464 mit Emulator. Entfernt 
man jedoch im Programm in den Zeilen 170 und 210 den 
FILL-Befehl, sollte es auch auf dem CPC 464 ohne Emulator 
laufen. Dreiecke können dann eben nicht mehr gefüllt wer¬ 
den. was sich sicherlich verschmerzen läßt. 

Thomas Gössli/rs 

Schrift 

Wer hat ihn nicht satt, den alten stupiden Zeichensatz seines 
CPC? Dieses kleine 1-kByte-Programm liest nach dem Start 
aus den DATA-Zeilcn einen ganz neuen und wesentlich in¬ 
teressanteren Zeichensatz heraus, der sicherlich gut zum 
Einbau in eigene Programme zu gebrauchen ist. 

Holger Willms/rs 


Aufruf an unsere Leser 

Falls es Inzwischen in Vergessenheit geraten sein sollte: Wir suchen 
auch weiterhin kleine Programme, die nicht mehr als ein kByte an 
Speicherplatz in Anspruch nehmen. Was für tolle Sachen sich mit ei¬ 
nem Programm dieser Größe machen lassen, konnten Sie schon mit¬ 
verfolgen, aber vielleicht haben Sie ja noch etwas viel Besseres auf 
Lager? Wenn Sie sich entschließen, Ihren Beitrag zur 1-kByte-Soft- 
ware an die anderen Leser weiterzugeben, dann sollten Sie folgen¬ 
des beachten: 

• Kopieren Sie das Programm und einen Anleitungstext im ASCII-For- 
mat auf einen Datenträger. Versuchen Sie hierbei die Funktion des Pro¬ 
gramms so eindeutig und ausführlich wie möglich zu schildern. 

• Packen Sie die Diskette sowie einen Ausdruck des Programms 
und des Textes in einen Umschlag und senden diesen an: 

DMV 

Redaktion CPC International 
Stichwort 100 DM für 1 kByte 
Postfach 250 

3440 Eschwege 


1 'bogen.bas (lkb) 

2 MODE 1:PRINT"Welcher Level (1-2) ? 

3 i$=INKEY$ 

4 IF i$="2" THEN 1=2 

5 IF i$ ="" THEN 3 

6 IF NOT i$="2" THEN 1=1 

7 MODE 0 

8 ENT 1,50,1,1 

9 ENV 2,15,-1,3 

10 SYMBOL AFTER 35 

11 SYMBOL 35,16,40,74,255,74,40,16 

12 IF 1=2 THEN 14 


[525] 

[2916] 

[1004] 

[323] 

[974] 

[ 886 ] 

[507] 

[891] 

[407] 

[1285] 

[2153] 

[800] 


13 GRAPHICS PEN 3:MOVE 639,150:DRAW 639,25 
0 

14 GRAPHICS PEN IrMOVE 639,175:DRAW 639,22 
5 

15 GRAPHICS PEN 0:MOVE 639,195:DRAW 639,20 
5 

17 LOCATE l,a:PRINT"#":LOCATE l,a-l:PRINT" 
11 

18 IF INKEY$=" " THEN 22 

19 a=a+l:IF a=20 THEN a-ROUND(RND*10+2) 

20 LOCATE 1,19:PRINT" " 


[2162] 

[2051] 

[2250] 

[322] 

[3473] 

[1530] 

[3023] 

[589] 
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21 GOTO 17 

22 SOUND 1,500,0,15,2,1 

23 FOR b=3 TO 19 

24 LOCATE b,a:PRINT"-":LOCATE b-1,a:PRINT" 

25 NEXT 

26 p=0 

27 IF a=10 OR a=ll OR a=15 OR a=16 THEN p= 
25 

28 IF a=12 OR a=14 THEN p=50 

29 IF a=13 THEN p=100 

30 punkte=punkte+p 

31 IF 1-2 AND p=25 THEN 36 

32 LOCATE 1,25:PRINT"Punkte:";punkte 

33 LOCATE 19,a:PRINT" LOCATE l,a:PRINT" 

34 IF p=0 THEN 36 

35 GOTO 19 

36 LOCATE 1,23:PRINT"DANEBEN !!! 

37 CLEAR INPUT 

38 IF INKEY$="" THEN 38 ELSE RUN 


[397 ] 
[1318] 
[1225] 
[2678] 

[350] 

[257] 

[3327] 

[2046] 

[1051] 

[1794] 

[603] 

[2570] 

[1864] 

[684] 

[387] 

[1816] 

[184] 

[982] 


T 'fight.bas (lkb) 

2 GOSUB 23:sc=0:zx=0:yf=0:x=314:y=100 :TAG: 
MOVE x,y:PRINT "+";:MODE l:TAG:MOVE 314,20 
,1rPRINT CHR$(189);:MOVE 160,1:DRAW 160,20 
0,15:DRAW 480,200:DRAW 480,1:EVERY 1,1 GOS 
UB 8 

3 GOTO 3 

4 f=f-l.4:IF f<32 THEN 6 

5 TAG:MOVE Z,f:PRINT CHRS(252);:RETURN 

6 TAG:MOVE z,f,0:PRINT CHR$(143);:SOUND 1, 
4000,10,,,,15:s=s + l: GOSUB 23 :f=195:GOTO 5 

7 TAG:MOVE z,f,0:PRINT CHR$(143);:zx=0:yf= 
0:sc=sc+l:SOUND 1,4000,10, ,, ,25:GOSUB 23:R 
ETURN 

8 IF JOY(0)=4 THEN X=X-2 

9 IF JOY(0)=8 THEN X=X+2 

10 IF JOY(0)=1 THEN y=y+2 

11 IF JOY(0)=2 THEN y=y-2 

12 IF JOY( 0) = 16 THEN GOSUB 18 

13 IF x<165 THEN x=165 

14 IF x>460 THEN x=460 

15 IF y<33 THEN y=33 

16 IF y>190 THEN y=190 

17 TAG:MOVE x,y,l:PRINT "+";:GOSUB 4:RETUR 
N 

18 MOVE 320,21:DRAW x+8,y-8,1:SOUND 1,70,1 
0:DRAW 320,21,0:MOVE x,y,.l:IF x+8<z+14 AND 

x+8>z THEN ZX=1 

19 IF X+8<z+14 AND x+8>z THEN zx=l 

20 IF y-8>f-14 AND y-8<f THEN yf=l 

21 IF zx=l AND yf=l THEN GOSUB 7 

22 RETURN 

23 TAGOFF:LOCATE 2,2:PEN 1:PRINT "SCORE:"; 
SC:F=195:Z=(INT(RND(1)*300)) + 165:TF S = 3 TH 
EN 25 

24 RETURN 

25 TAGOFF : LOCATE 16,12:PRINT "GAME OVER" 


[348] 
[8303 ] 


[290] 

[1232] 

[1430] 

[5347] 

[6471 ] 


[931] 
[1385] 
[827 ] 
[802] 
[1393] 
[618] 
[506] 
[810] 
[1068] 
[2205] 

[4817] 


[2385] 

[ 1000 ] 

[1289] 

[555] 

[5304] 


[555] 

[2844] 


1 'drucker.bas (lkb) 

2 s=7:s$(l)="Elite":d$(l)="M":s$(2)="Propo 
rtional":d$(2)="p"+CHR$(1):s$(3)="Schmal": 
d$ (3) = "SI":s$(4) = "Fett":d$(4)="E":s$(5)="B 
reit" :d$ (5)="W"+CHR$ (1) :s$(6)="Kursiv" :d$ ( 
6)="4":s$(7)="Mikro":d$(7)="g" 

3 MODE 1:PRINT CHRS(240)+CHR$(241)+"=CURSO 
R ENTER=WAHL D=DRUCKPROBE E=ENDE"PRINT S 
TRINGS(40,154):FOR n=l TO s:GOSUB 6:PRINT 
s$(n) + "-Druck":NEXT:GOSUB 7 

4 t$=UPPER$(INKEYS):IF t$=CHR$(13) THEN GO 
SUB 9 ELSE IF t$=CHR$(240) THEN GOSUB 6:n = 
n-1:GOSUB 7 ELSE IF t$=CHR$(241) THEN GOSU 
8 6: n-n + 1 :GOSUB 7 PILSE IF t$="D" THEN GOSU 
B 11 ELSE IF t$="E" THEN GOSUB 11:END 

5 GOTO 4 

6 LOCATE 10,n*2+3:PRINT " ";:RETURN 

7 IF n<l THEN n=s ELSE IF n>s THEN n-1 ELS 
E n=n 

8 LOCATE 10,n*2+3:PRINT CHRS(243):RETURN 

9 L=LEN(s$(n))+6:LOCATE 12,n*2+4:IF s(n)=0 
THEN s(n)=1:PRINT STRINGS(L,208) ELSE s(n 

)=0:PRINT STRINGS(L," ") 

10 RETURN 

11 d$(0)="g" :FOR i=0 TO s:IF s(i)=l THEN P 
RINT #8,CHR$(27)+d$(i);:IF t$="D" THEN PRI 
NT #8,s$(i) 

12 NEXT:PRINT #8:RETURN 


[2325] 
[10626] 


[8806] 


[12060] 


[277] 

[1279] 

[1182] 

[1718] 

[4532] 


[555] 

[4079 


[2242] 


1816] 

14034] 


1 'dr-press.bas (lkb) r 

10 DATA " G@1 7 '2 &%>$X G &$h 73@ H31% 

>S51$W2712812912:1*31$& > 6*316%P I H31I%0 
%P$r+l$&G:71$_x(2G:;1$# x F 8G:91%0%Px( / 

G9142; 1 >$v*51:91w$W291 I:;lw I H51SW271G: 

81$_x(=G:;1$#_x( @G::l%0%Px( 7 G:14*51w I 
H512;1 >$4*<l::l=w$W2:1*31+ H31:;lw$W28l*3 

20 DATA "$& IF$# ()> '281*516 & I H<1 I H5 [15374] 
1*31$&2;l*51w I H51> '2:l$k+0> '271*31$&2; 
l$k+0:71$ ( <*51:91w I:;lw 16 & 16 & H>l$q 
*<l::l=w*Fl6 & 16 & H> 1$q]%0$w0$s$k:0$w%Py 
M ' &$q & &rM|M%0 ' G3@$jRl%.f '%.n & '3 & 

/ 7 &$h$&$ ( 2 IG$& 8 9 6%M 891 >%A I$& 

O " ~ 

30 DATA "$_$p , & I%>$X I >%4 & ","":n=&30 [114741 
00:DEF FNf=ASC(MID$(a$,z,1)):READ a$:z=l:W 
HILE n<&3173:f=FNf:IF f = 32 THEN y=-38 ELSE 
IF f=37 THEN y=175 ELSE IF f=36 THEN y=88 
ELSE IF f=33 THEN y=l ELSE y=0:z=z-l 
40 2*2+1:IF FNf=35 THEN y=y+l:z=z+l [2243] 

50 POKE n,FNf+y:n=n+l:z=z+l:IF z=LEN(a$)TH [2545] 
EN z=l:READ a$ 

60 WEND:INPUT n$:LOAD nS,&COOO:CALL &3000: [6353] 
SAVE n$,b,&4000,PEEK(&313E)+256*PEEK(&313F 
)-&4000 


I 'sirpinsk.bas (lkb) 

+ *'** sir Pinski-Dreiecke by Thomas Goessi 

3 INPUT"Ordnung";q 

4 IF q>5 THEN GOTO 3 ELSE o=q:l=INT(384/2 A 
( 0 + 1 )) 

5 INPUT"Form (d/k)";f$:f=INSTR("k",f$) 

6 PRINT"gefuellt ?" 

7 WHILE INSTR(" jn",t$)<2:t$=INKEY$:WEND 

8 MODE 2:DEG:MOVE 128,25 

9 GOSUB 10:RUN 

10 IF O>0 THEN 0=0-1:GOSUB 10 

II MOVER l*2 A o,0:IF o=0 THEN ON f+1 GOSUB 
17,20 

12 IF O>0 THEN 0=0-1:GOSUB 10 

13 MOVER -l*2 A O*COS(60),1*2 a O*SIN( 60):IF O 
=0 THEN ON f+1 GOSUB 17,20 

14 IF o>0 THEN 0=0-1:GOSUB 10 

15 MOVER -1*2 A o*COS(60),-l*2 A o*SIN(60):IF 
0=0 THEN ON f+1 GOSUB 17,20 

16 o=o+l:RETURN 

17 DRAWR 1,0:DRAWR -1*COS(60),1*SIN(60):DR 
AWR -l*COS(60),-l*SIN(60) 

18 IF t$="j" THEN MOVER 2,2:FILL 1:MOVER - 
2,-2 

19 RETURN 

20 x=XPOS:y=YPOS 

21 ORIGIN x+l/2,y+l/2:PLOT (1/2)*SIN(0) , (1 
/2)*COS(0):FOR w=0 TO 360 STEP 2 A (q-l):DRA 
W (l/2)*SIN(w),(1/2)*COS(w):NEXT 

22 IF t$="j" THEN MOVER 0,-2:FILL 1 

23 ORIGIN 0,0:MOVE x,y 

24 RETURN 


[957] 

[2305] 

[1825] 

[3463] 

[2003] 

[1085] 

[2764] 

[1529] 

[863] 

[240] 

[2680] 

[240] 

[4421] 

[240] 

[6008] 

[792] 

[2846] 

[1695] 

[555] 

[1069] 

[6370] 


[1089] 

[637] 

[555] 


1 'schrift.bas (lkb) M 3041 

2 SYMBOL AFTER 65:FOR N=65 TO 90:READ b,c, [119991 

Diori.^i / o , oÄ« YMBOL N > b /C,d,e,f,g,h,i:NEXT: 

RESTORE 2:FOR N=97 TO 122:READ b,c,d,e,f,q 

,h ,1 :SYMBOL N,b,c,d,e,f,g,h,i:NEXT:DATA 8) 

28,28,50,50,103,97,0,126,97,97,110,97,97,1 

10,0 

3 DATA 30,49,112,112,112,49,30,0,120,98,97 [12705] 
,97,97,98,104,0,111,96,96,110,96,96,111,0, 
111,96,96,110,96,96,96,0,30,49,96,96,103,4 
9,30,0,97,97,97,111,97,97,97,0,60,24,24,24 
,24,24,60,0,3,3,3,3,67,67,62,0,97,98,100,1 
04,100,98,97,0,96,96,96,96,96,96,111,0,97, 

4 DATA 109,97,97,97,97,0,97,97,105,101,99, [11789] 
97,97,0,62,97,97,97,97,97,62,0,126,97,97,1 
10,96,96,96,0,62,97,97,97,101,102,61,0,126 
,97,97,110,100,98,97,0,62,97,96,62,3,67,62 
,0,62,0,12,12,12,12,12,0,97,97,97,97,97,97 

/62,0,97,97,97,50,50,12,i2,0,97,97,97,i09, 

5 DATA 99,97,0,67,38,12,28,50,97,97,0,67,3 [3441] 
5,22,6,12,12,24,0,115,6,12,24,48,103,127,0 

6 DATA 78,97,97,105,101,99,?7,97,0 [958] 
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Tips & Tricks 



Floppy im Schnellgang 


Beschleunigung 

des Schreib - und Lesevorgangs 

“Schon wieder ein Formatierungsprogramm“, werden Sie vielleicht sagen, 
aber dieses wirkt einmal in eine andere Richtung. Haben Sie Ihre Disketten, 
mit diesem Programm formatiert, werden die Schreib- und Lesevorgänge bis 
zu 20 Prozent schneller. 


In der Literatur findet man häufig Pro¬ 
gramme, mit denen es möglich wird, 
Disketten in allen gängigen For¬ 
maten, zu denen das jeweilige CPC- 


Laufwerk fähig ist. zu formatieren. Mit 
dem hier vorgestellten FORMAT-Pro- 
gramm werden die Fähigkeiten des 
Laufwerks noch weiter ausgereizt, 


denn die Schreib- und Lesegeschwin¬ 
digkeit wird erhöht. 

Je nach Dateityp wird die Ausführung 
des Dateitransfers um 10 bis 20 Prozent 
gegenüber einer normal formatierten 
Diskette beschleunigt. Das Programm 
wurde mit folgenden Konfigurationen 
getestet: 

CPC 464 mit 3-Zoll-Laufwerk, 

CPC 464 mit 5,25-Zoll-Laufwerk. 

CPC 6128 mit 5,25-Zoll-Laufwerk. 

Bei den Tests in der Redaktion wurde 
eine Beschleunigung beim Laden von 
Programmen von durchschnittlich 12,5 
Prozent ermittelt. Zu den Tests wurden 
BASIC und Binärdateien unterschiedli¬ 
cher Größe herangezogen. (Red.) 
Tippen Sie das Programm ab, und si¬ 
chern Sie es auf einer Diskette. Wenn Sie 
das Programm starten, wird als erstes 
nach dem Format gefragt, mit welchem 
Sie die Diskette formatieren wollen. Drei 
Möglichkeiten stehen Ihnen hier zur Aus¬ 
wahl: 

Taste <S> = System-(Vendor-)For- 
mat (40 Spuren), 

Taste <D> = Data-Format 
(40 Spuren), 

Taste <V> = Vortex-Format 
(160 Spuren). 

Haben Sie eine entsprechende Taste be¬ 
tätigt, erwartet das Programm die Einga¬ 
be des Laufwerks A: oder B: zum For¬ 
matieren. Nun legen Sie die Diskette in 
das Laufwerk und drücken anschließend 
die Leertaste, wodurch die Formatierung 
gestartet wird. Zuletzt noch ein Tip: 
Durch das Ändern der Variablen 
“da=40“ in “da=43“ (Zeile 330) kann 
das Programm auch bis Spur 42 im 
Schneider-Format formatieren! 

Hans-Peter Pfennig/jg 


für 464-664-6128 



10 /*************************** 

20 ' * * 

30 '* Listing FORMAT.BAS * 

40 '* all Rights by * 

50 '* H.P. Pfennig * 

60 '* & 

70 '* CPC International * 

80 ' * * 

g0 /*************************** 

100 MEMORY 42550:CLEAR 

110 REM Programm: FORMAT.SDV 

120 REM Programmiert von Hans-Peter Pfenm 


[1051] 

[175] 

[1911] 

[893] 

[958] 

[253] 

[1646] 

[175] 

[1051] 

[595] 

[3060] 

[2797] 


9 

130 REM 

140 REM Die Formatierung mit diesem Progra 

mm dient dem schnelleren Lesen 

150 REM und Beschreiben von Disketten im V 

ORTEX - und SCHNEIDER FORMAT 

160 REM 

170 REM 

180 REM 

190 DEFINT a-Z 

200 MODE 2 : LOCATE 16,8 : PRINT’’Welches Forma 
t soll formatiert werden ?" 


[ 272] 
[4533] 

[4727] 

[ 272] 
[272] 
[272] 
[553] 
[5224] 



210 LOCATE 16,10:PRINT"(S)ystem [Vendor] - 
(D)ata oder (V)ortex - Format ?" 

220 FOR i=&A65E TO &A67B:READ a$:POKE i,VA 
L("&"+a$):NEXT 

230 DATA 3A,B5,AB,FE,80,C2,6C,A6 
240 DATA 21,78,A6,3E,7E,77,1E,00 
250 DATA 16,00,0E,CI,21,38,A6,DF 
260 DATA 78,A6,42,C0,07,C9 
270 p=&A637 
280 a$=LOWER$(INKEY$) 

290 IF a$="s" THEN LOCATE 16,10:PRINT CHR$ 
(24)"(S)ystem [Vendor]";CHR$(24):POKE p,l: 
GOTO 350 

300 IF a$="d" THEN LOCATE 36,10:PRINT CHR$ 
{ 24) " (D)ata' 1 ;CHR$ ( 24 ) : POKE p,2:GOTO 350 
310 IF a$="v" THEN LOCATE 48,10:PRINT CHR$ 
(24)"(V)ortex";CHR$(24):POKE p,3:GOTO 350 
320 IF a$="a" THEN POKE 42605,OtGOTO 370 
330 IF a$="b" THEN POKE 42605,1:GOTO 370 
340 GOTO 280 

350 LOCATE 16,14:PRINT"Mit welchem Laufwer 
k soll formatiert werden ? ( A oder B )" 
360 GOTO 280 

370 IF PEEK(42605)=1 THEN b$="B" ELSE b$=" 
A" 

380 MODE 2:LOCATE 17,2:PRINT"F O R M A T I 
ERUNGSPROGRAMM" 


[4704] 

[2737] 

[919] 

[1172] 

[1039] 

[460] 

[642] 

[960] 

[6185] 


[3464] 

[5077] 


[1847] 

[893] 

[413] 

[3417] 


[413] 

[1351] 


[4327] 
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390 LOCATE 34,4:PRINT"f u e r":LOCATE 17,6 
:PRINT''V ortex - und Schnei 
d e r":LOCATE 30,8:PRINT"L a u f w e r k 
e" 

400 LOCATE 17,11:PRINT"Bitte die zu format 
ierende Disc in Drive ";b$ 

410 LOCATE 17,12:PRlNT"einlegen und eine T 
aste betaetigen!":CALL &BB18 
420 FOR b=&A638 TO &A65B:POKE b,0:NEXT:FOR 
b=&A63B TO &A65B STEP 4:POKE b,2:NEXT:m=P 
EEK( S.A637):da=40:ca=l:zx=2 
430 IF m=l THEN S=64:LOCATE 17,14:PRINT"SY 
STEM - FORMAT (40 Spuren)" 

440 IF m=2 THEN s=l92:zx=l:LOCATE 17,14:PR 
INT"DATA - FORMAT (40 Spuren)" 

450 IF m=3 THEN da%=80:ca=2:s=0:LOCATE 17, 
14:PRINT"VORTEX - FORMAT (160 Spuren)" 

460 spur=0:spurn=0:kn=0 
470 LOCATE 17,16:PRINT"Formatiere Spur " 
480 IF PEEK(43957)=128 AND PEEK(43959)=32 
THEN POKE 43966,82 ELSE POKE 43170,82:POKE 
43234,82 


490 

FOR d=l TO . 

da 

500 

FOR c=l TO ■ 

ca 

510 

POKE 42607, 

spur 

520 

IF 

zx=l THEN z=5:zx=3 

530 

IF 

zx=2 THEN z=3:zx=0 

540 

IF 

Z=1 THEN 

800 

550 

IF 

2=2 THEN 

810 

560 

IF 

z=3 THEN 

820 

570 

IF 

Z=4 THEN 

830 

580 

IF 

Z=5 THEN 

840 

590 

IF 

Z=6 THEN 

850 

600 

IF 

z=7 THEN 

860 

610 

IF 

Z=8 THEN 

870 

620 

IF 

Z=9 THEN 

880 

630 

Z=Z+1 


640 

IF 

ZX=3 THEN Z=1:ZX=0 


[8214] 

[5901] 
[6007] 
[5473] 

[5656] 

[5786] 

[4693] 

[2041] 

[2088] 

[4218] 


[ 1112 ] 

[1075] 

[650] 

[1173] 

[1246] 

[ 1201 ] 

[968] 

[ 1100 ] 

[648] 

[519] 

[845] 

[1177] 

[447 ] 

[759] 

[702] 

[1264] 


650 IF Z>9 THEN Z=1 

660 POKE &A63A,sl:POKE &A63E,s2:POKE 
,S3:POKE &A646,s4 

670 POKE &A64A,s5:POKE &A64E,S6:POKE 
,s7:POKE &A656,s8:POKE &A65A,s9 
680 POKE &A639,kn:POKE &A63D,kn:POKE 
,kn:POKE &A645,kn 

690 POKE &A649 ,kn:POKE &A64D,kn:POKE 
,kn:POKE &A655,kn:POKE &A659,kn 
700 FOR f = &A638 TO S.A658 STEP 4: POKE 
rn:NEXT 


[642] 

&A642 [2057] 
&A652 [3776] 
&A641 [3114] 
&A651 [4140] 
f,spu [1643] 


710 LOCATE 33,16:PRINT spur 
720 FOR 1=1 TO 50:NEXT 
730 CALL 42590 
740 spur=spur+l 

750 IF PEEK(&A637)=3 THEN kn=l ELSE kn=0 
760 NEXT 

770 spurn=spurn+l:kn=o 
780 NEXT 

790 LOCATE 17,18:PRINT"Formatierung beende 
t!":PRINT:PRINT:END 


[2157] 

[738] 

[318] 

[858] 

[1736] 

[350] 

[2205] 

[350] 

[4700] 


800 sl=9+s:s2=5+s:s3=l+s:s4=6+s:s5=2+s:s6= [49901 

7+s:s7=3+s:s8=8+s:s9=4+s:GOTO 630 

810 sl=8+s:s2=4+s:s3=9+s:s4=5+s:s5=l+s:s6= [4569] 

6+s:s7=2+s:s8=7+s:s9=3+s:GOTO 630 

820 sl=7+s:s2=3+s:s3=8+s:s4=4+s:s5=9+s:s6= [4591] 

5+s:s7=l+s:s8=6+s:s9=2+s:GOTO 630 

830 sl=6+s:s2=2+s:s3=7+s:s4-3+s:s5=8+s:s6= [3950] 

4+s:s7=9+s:s8=5+s:s9=l+s:GOTO 630 


840 sl=5+s:s2=l+s:s3=6+s:s4=2+s:s5=7+s:s6= [2813] 

3+s:s7=8+s:s8=4+s:s9=9+s:GOTO 630 

850 sl=4+s:s2=9+s:s3=5+s:s4=l+s:s5=6+s:s6= [4990] 

2+s:s7=7+s:s8=3+s:s9=8+s:GOTO 630 

860 sl=3+s:s2=8+s:s3=4+s:s4=9+s:s5=5+s:s6= [4168] 

l+s:s7=6+s:s8=2+s:s9=7+s:GOTO 630 

870 sl=2+s:s2=7+s:s3=3+s:s4=8+s:s5=4+s:s6= [5582] 

9+s:s7=5+s:s8=l+s:s9=6+s:GOTO 630 

880 sl=l+s:s2=6+s:s3=2+s:S4=7+S:S5=3+S:S6= [3884] 

8+s:s7=4+s:s8=9+s:s9=5+s:GOTO 630 


Safer Tape 

Kassettenjustierung 
ganz einfach 

Wer bei seinem CPC häufig mit dem Datenrecorder 
arbeitet, wird früher oder später einmal seinen Tonkopf 
neu justieren müssen. Unser kleines Programm kann 
Ihnen da eine Menge Zeit und Geld ersparen. 


Der AZIMUT Locator ist ein Programm, das aufgrund der 
Fonimpulse, die der Datenrecorder beim Abspielcn einer 
Kassette in Form von Spannungen an den CPC liefert, leicht 


ersehen kann, ob das Kassettenlaufwerk richtig eingestellt ist 
oder nicht. 

Da die Lage des Tonkopfes sich nur per Hand, sprich mit ei¬ 
nem Schraubenzieher, regulieren läßt, ist Ihnen der AZI¬ 
MUT Locator insoweit behilflich, als er Ihnen auf dem Bild¬ 
schirm anzeigt, wie die Signale ankommen und in welchem 
Bereich diese liegen. 

Tritt nun der Fall ein, daß das Zentrum der auf dem Bild¬ 
schirm angezeigten Linie zu weit von der Mitte abweicht, so 
sollten Sie Ihren Tonkopf mittels eines kleinen Schraubenzie¬ 
hers nachjustieren. Die Schraube befindet sich in dem klei¬ 
nen Loch unterhalb des Kassetteneinschubs. Durch leichtes 
Drehen nach links oder rechts müssen Sie versuchen, den 
Mittelpunkt der Linie mehr oder weniger genau an die Mitte 
des Kästchens heranzubewegen. Nun können Sie Ihre Soft¬ 
ware wieder ohne andauernde Ladefehler einspielen. 

Damir Petkovik/rs 


10 ' AZIMUT.LDR 

11 ' (c) 1991 by Dainir Petkovic 

12 ' & CPC International 

13 ' 

14 MEMORY &7FFF 

15 dl= 1160 

16 FOR adr=&8000 TO S8627 STEP 8 


17 

18 

19 

20 
21 
22 

23 

24 

25 

in Zeile"dl:END 


c=0 

FOR i=adr TO adr4 7 
READ b$ 

byte=VAL("&"+bS) 
c=c+byte 
POKE i,byte 
NEXT i 
READ cs 

IF cs<>c THEN PRINT"Pruefsuminenfehler 


[1286] 


26 dl 

[1871] 


27 NEXT 

[2118] 


28 SAVE 

[117] 


29 END 

[150] 


30 DATA 

[526] 


31 DATA 

[1578] 


32 DATA 

[348] 


33 DATA 

[1011] 


34 DATA 

[315] 


35 DATA 

[465 ] 


36 DATA 

[ 935 ] 


37 DATA 

[294] 


38 DATA 

[375] 


39 DATA 

[534] 


40 DATA 

[2753] 


41 DATA 



42 DATA 


=dl+ 10 
adr 

"Azimut.Bin",b,&8000,&627,&8000 


0E,FF, 
01 , 01 , 
ED,49, 
10,3E, 
3E,9C, 

95.21, 
95,06, 

81.21, 
93,CD, 
CD,5A, 
5A,BB, 
28,06, 
F3,01, 


21,08,80, 
BC,ED,49, 
3E,96,CD, 
9A,CD,5A, 
CD,5A,BB, 
02,01,CD, 
0E,21,02, 
10,01,CD, 
5A,BB,06, 
BB,10,FB, 
21,26,81, 
CD,5A,BB, 
8D,7F,ED, 


CD, 16 
01,00 
5A, BB 
BB, 10 
06,0E 
16,81 
12,CD 
75, BB 
10,3E 
3E, 99 
7E, FE 
23,18 
49,01 


,BD,&0356 
,BD,&0292 
,06,&03F2 
,FB,&03D5 
,3E,&030E 
,3E,&025B 
,16,&01C1 
,3E,&02EE 
,9A,&0363 
,CD,&0491 
,FF,&0458 
,F5,S0340 
,00,&0337 


[631] 

[547] 

[2600] 

[ 110 ] 

[1455] 

[605] 

[1863] 

[2341] 

[1626] 

[2237] 

[1434] 

[1569] 

[728] 

[1907] 

[1715] 

[1784] 

[1506] 
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43 DATA 7F,ED,49,3E,54,ED,79,0E,&03BB [1552] 

44 DATA 10,ED, 49 ,ED,79,0E,01,3E,&02F9 [1587] 

45 DATA 4B,ED,49,ED,79,0C,3E,56,&0387 [2549] 

46 DATA ED,49,ED,79,0C,3E,4E,ED,&0421 [1373] 

47 DATA 49,ED,79,21,27,82,11,72,&02FC [1569] 

48 DATA D3,06,20,C5,D5,01,20,00,&02B4 [1159] 

49 DATA ED,BO,EB,E1,01,00,08,09,&037B [2230] 

50 DATA 30,04,01,50,C0,09,EB,C1,&02FA [2150] 

51 DATA 10,E9,01,01,BC,ED,49,01,&02EE [1273] 

52 DATA 28,BD,ED,49,01,FF,F6,ED,&04FE [1523] 

53 DATA 49,21,52,CO,11,53,CO,01,&02A1 [630] 

54 DATA 1F,00,36,00, ED, BO ,06,06,&01FE [H57] 

55 DATA C5,06,F5,0E,00,16,FF,3E,& 0321 [1543] 

56 DATA 00,ED,60,CB,14,D2,D9,80,&0457 [706] 

57 DATA 3C,15,C2,D1,80,FE,FF,C2,&0523 [2099] 

58 DATA E4,80,3E, 00 , CB, 3F, CB, 3F, S.03B6 [1416] 

59 DATA CB,3F,5F,16,00,21,52,C0,&02B2 [1129] 

60 DATA 19,36,FF,CI,10,D2,21,72,5.0384 [1820] 

61 DATA C3,06,50,C5,E5,01,00,F8,&03BC [1520] 

62 DATA 09,CB,74,20,O4,01,B0,3F,&025C [1944] 

63 DATA 09 ,Dl,E5,01,20,00,ED,BO, S.037D [1571] 

64 DATA E1,C1,10,E7,18,A3,C5,F5,&050E [1120] 

65 DATA E5,CD,75,BB,El,Fl,CD,5A,&05DB [1321] 

66 DATA BB,2C,C1,10,Fl,C9,1F,18,&03A9 [1024] 

67 DATA 03,OF,01,41,5A,49,4D,55,60199 [2451] 

68 DATA 54,20,4C,4F,43,41,54,4F,&0236 [1616] 

69 DATA 52,1F,1F,05,OF,02,42,59,5.0141 [1692] 

70 DATA 1F,1F,07,44,41,4D,49,52,&01B2 [1966] 

71 DATA 1F,1F,08,50,45,54,4B,4F,&01C9 [1136] 

72 DATA 56,49,43,1F,15,0B,0F,00,&0130 [2454] 

73 DATA 4D,59,20,41,44,44,52,45,5.0226 [1424] 

74 DATA 53,53,3A,1F,15,0D,44,41,&01A6 [1778] 

75 DATA 4D,49,52,20,50,45,54,4B,S023C [1755] 

76 DATA 4F,56,49,43,1F,15,OE,46,&01B9 [1619] 

77 DATA 2E,20,42,41,52,42,41,4C,&01F2 [ 1.887] 

78 DATA 49,43,41,20,31,1F,15,0F,&0161 [1336] 

79 DATA 35,32,30,30,30,20,50,55, S.01BC [1523] 

80 DATA 4C,41,1F,15,10,59,55,47,601C6 [1720] 

81 DATA 4F, 53,4C, 41,56,49,41,1F, S.022E [1361] 

82 DATA 01,14,0F,01,50,41,59,20,&012F [1872] 

83 DATA 41,54,54,45,4E,54,49,4F,&0268 [871] 

84 DATA 4E,3A,20,20,54,52,41,49,&01F8 [2190] 

85 DATA 4C,20,48,41,53,20,54,4F,&020B [1830] 

86 DATA 20,42,45,20,41,53,20,44,&01BF [1233] 

87 DATA 45,4E,53,45,1F,11,15,41,&01B1 [1512] 

88 DATA 53,20,50,4F,53,53,49,42,60243 [1249] 

89 DATA 4C,45,2Ö,20,41,4E,44,20,&01C4 [1177] 

90 DATA 49,54,20,20,48,41,53,1F,S.01D8 [1078] 

91 DATA 11,16,54,4F,20,42,45,20,60191 [2277] 

92 DATA 20,4D,4F,53,54,4C,59,20,60228 [1423] 

93 DATA 20,41,42,4F,56,45,20,54,60201 [1914] 

94 DATA 48,45,1F,11,17,48,49,47,601AC [1374] 

95 DATA 48,45,53,54,.20,20,43,4F,60206 [1034] 

96 DATA 4C,55,4D,4E,20,20,4F,46,60211 [1779] 

97 DATA 20,20,54,48,45,1F,11,18,60169 [1386] 

98 DATA 43,48,41,52,54,2E,FF,F0,6038F [1379] 

99 DATA FO,FO,FO,FO,FO,FO,FO,FO,60780 [2270] 

100 DATA FO,FO,FO,FO,FO,FO,FO,FO,60780 [2270] 

101 DATA F0,F0,F0,F0,F0,F0,F0,F0,60780 [2270] 

102 DATA FO,FO,FO,FO,FO,FO,EO,00,60680 [2321] 

103 DATA 00,00,00,00,00,00,00,00,60000 [1216] 

104 DATA 00,00,00,00,00,00,00,00,60000 [1216] 

105 DATA 00,00,00,00,00,00,00,00,60000 [1216] 

106 DATA 00,00,00,00,00,00,00,00,60000 [1216] 

107 DATA 00,00,00,00,00,00,00,00,60000 [1216] 

108 DATA 00,00,00,00,00,00,00,00,60000 [1216] 

109 DATA 00,00,00,00,00,00,00,00,60000 [1216] 

110 DATA 00,00,00,00,00,00,00,00,60000 [1216] 

111 DATA 00,00,00,00,00,00,00,00,60000 [1216] 

112 DATA 00,00,00,00,00,07,OF,00,60016 [1305] 

113 DATA 00,00,00,00,00,00,00,00,60000 [1216] 

114 DATA 00,00,00,00,00,00,00,00,60000 [1216] 

115 DATA 00,00,00,00,00,00,00,00,60000 [1216] 

116 DATA 00,00,00,00,00,07,OF,00,60016 [1305] 

117 DATA 00,00,00,00,00,00,00,00,60000 [1216] 

118 DATA 00,00,00,00,00,00,00,00,60000 [1216] 

119 DATA 00,00,00,00,00,00,00,00,60000 [1216] 

120 DATA 00,00,00,00,00,07,OF,00,60016 [1305] 

121 DATA 00,00,00,00,00,00,00,00,60000 [1216] 

122 DATA 00,00,00,00,00,00,00,00,60000 [1216] 

123 DATA 00,00,00,00,00,00,00,00,60000 [1216] 

124 DATA 00,00,00,07,OF,07,OF,07,60033 [1609] 

125 DATA OF,00,00,00,00,00,00,00,6000F [944] 

126 DATA 00,00,00,00,00,00,00,00,60000 [1216] 

127 DATA 00,00,00,00,00,00,00,00,60000 [1216] 

128 DATA 00,00,00,07,OF,07,OF,07,60033 [1609] 

129 DATA OF,00,00,00,00,00,00,00,6000F [944] 

130 DATA 00,00,00,00,00,00,00,00,60000 [1216] 

131 DATA 00,00,00,00,00,00,00,00,60000 [1216] 

132 DATA 00,00,00,07,OF,07,OF,07,60033 [1609] 

133 DATA OF,00,00,00,00,00,00,00,&000F [944] 

134 DATA 00,00,00,00,00,00,00,00,60000 [1216] 


135 DATA 00,00,00,00,00,00,00,00,60000 

136 DATA 00,00,00,07,OF,07,OF,07,60033 

137 DATA OF,00,00,00,00,00,00,00,6000F 

138 DATA 00,00,00,00,00,00,00,00,60000 

139 DATA 00,00,00,00,00,00,00,00,60000 

140 DATA 00,00,00,07,OF,07,OF,07,60033 

141 DATA 0F,O0,00,00,00,00,00,00,6000F 

142 DATA 00,00,00,00,00,00,00,00,60000 

143 DATA 00,00,00,00,00,00,00,00,60000 

144 DATA 00,00,00,07,OF,07,OF,07,60033 

145 DATA OF,00,00,00,00,00,00,00,6000F 

146 DATA 00,00,00,00,00,00,00,00,60000 

147 DATA 00,00,00,00,00,00,00,00,60000 

148 DATA 00,00,00,07,OF,07,OF,07,60033 

149 DATA OF,00,00,00,00,00,00,00,6000F 

150 DATA 00,00,00,00,00,00,00,00,60000 

151 DATA 00,00,00,00,00,00,00,00,60000 

152 DATA 00,00,00,07,OF,07,OF,07,60033 

153 DATA OF,00,00,00,00,00,00,00,6000F 

154 DATA 00,00,00,00,00,00,00,00,60000 

155 DATA 00,00,00,00,00,00,00,00,60000 

156 DATA 00,00,00,07,OF,07,OF,07,60033 

157 DATA OF,00,00,00,00,00,00,00,6000F 

158 DATA 00,00,00,00,00,00,00,00,60000 

159 DATA 00,00,00,00,00,00,00,00,60000 

160 DATA 00,00,00,07,OF,07,OF,07,60033 

161 DATA OF,00,00,00,00,00,00,00,6000F 

162 DATA 00,00,00,00,00,00,00,00,60000 

163 DATA 00,00,00,00,00,00,00,00,60000 

164 DATA 00,00,00,07,OF,07,OF,07,60033 

165 DATA OF,00,00,00,00,00,00,00,6000F 

166 DATA 00,00,00,00,00,00,00,00,60000 

167 DATA 00,00,00,00,00,00,00,00,60000 

168 DATA 00,00,00,07,OF,07,OF,07,60033 

169 DATA OF,00,00,00,00,00,00,00,6000F 

170 DATA 00,00,00,00,00,00,00,00,60000 

171 DATA 00,00,00,00,00,00,00,00,60000 

172 DATA 00,00,00,07,OF,07,OF,07,60033 

173 DATA OF,00,00,00,00,00,00,00,6000F 

174 DATA 00,00,00,00,00,00,00,00,60000 

175 DATA 00,00,00,00,00,00,00,00,60000 

176 DATA 00,07,OF,07,OF,07,OF,07,60049 

177 DATA OF,07,OE,00,00,00,00,00,60024 

178 DATA 00,00,00,00,00,00,00,00,60000 

179 DATA 00,00,00,00,00,00,00,00,60000 

180 DATA 00,07,OF,07,0F,07,0F,07,60049 

181 DATA OF,07,OE,00,00,00,00,00,60024 

182 DATA 00,00,00,00,00,00,00,00,60000 

183 DATA 00,00,00,00,00,00,00,00,60000 

184 DATA 00,07,0F,07,0F,07,0F,07,60049 

185 DATA OF,07,OE,00,00,00,00,00,60024 

186 DATA 00,00,00,00,00,00,00,00,60000 

187 DATA 00,00,00,00,00,00,00,00,60000 

188 DATA OÖ,07,OF,'07,’OF,07,OF,07,60049 

189 DATA OF,07,OE,00,00,00,00,00,60024 

190 DATA 00,00,00,00,00,00,00,00,60000 

191 DATA 00,00,00,00,00,00,00,00,60000 

192 DATA 00,07,OE’,07,OF,07,OF,07,60049 

193 DATA OF,07,OE,00,00,00,00,00,60024 

194 DATA 00,00,00,00,00,00,00,00,60000 

195 DATA 00,00,00,00,00,00,00,00,60000 

196 DATA 00,07,0F,07,0F,07,0F,07,60049 

197 DATA OF,07,OE,00,00,00,00,00,60024 

198 DATA 00,00,00,00,00,00,00,00,60000 

199 DATA 00,00,00,00,00,00,00,00,60000 

200 DATA 00,07,0F,07,0F,07,0F,07,60049 

201 DATA OF,07,OE,00,00,00,00,00,60024 

202 DATA 00,00,00,00,00,00,00,00,60000 

203 DATA 00,00,00,00,00,00,00,07,60007 

204 DATA 0F,07,0F,07,0F,07,0F,07,60058 

205 DATA OF,07,OE,OF,OE,00,00,00,60041 

206 DATA 00,00,00,00,00,00,00,00,60000 

207 DATA 00,00,00,00,00,00,00,07,60007 

208 DATA OF, 07, OF, 07 ,'ft'F, 07 , OF, 07,60058 

209 DATA OF,07,OE,OF,OE,00,00,00,60041 

210 DATA 00,00,00,00,00,00,00,00,60000 

211 DATA 00,00,00,00,00,00,00,07,60007 

212 DATA OF,O7,0F,O7,0F,07,0F,07,60058 

213 DATA OF,07,OE,OF,OE,00,00,00,60041 

214 DATA 00,00,00,00,00,00,00,00,60000 

215 DATA 00',00,00,00,00,07,OF,07,6001D 

216 DATA 0F,07,0F,07,OF,07,0F,07,60058 

217 DATA OF,07,OE,OF,OE,OF,OE,00,6Ö05E 

218 DATA 00,00,00,00,00,00,00,00,60000 

219 DATA 00,00,00,00,00,07,OF,07,600ID 

220 DATA OF,O7,0F,O7,0F,07,OF,07,60058 

221 DATA OF,O7,OS,OF,OE,OF,OE,O0,6005E 

222 DATA 00,00,00,00,00,00,00,00,60000 

223 DATA 00,00,00,07,OF,07,OF,07,60033 

224 DATA OF,07,OF,07,OF,07,OF,07,60058 

225 DATA OF,07,OE,OF,OE,OF,OE,0F,6006D 

226 DATA OE,00,00,00,00,00,00,00,6000E 
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Tips & Tricks 


Gamers 

Message 

Spieltips für jedermann 


Immer wieder wurde die Redaktion auf die so heiß ge¬ 
liebte Gamers Message angesprochen, und immer wie¬ 
der konnten wir uns nicht dazu entschließen, diese Serie 
aufleben zu lassen. Jetzt, wo die PC-Rubrik nicht mehr 
existiert, haben wir Platz. Platz für eine Rubrik, die ein¬ 
fach in das einzige deutsche CPC- und PCW-Magazin 
hineingehört. 

Die Gamers Message wird ab sofort in unregelmäßigen 
Abständen die von Ihnen eingesandten Tips und Tricks 
für alle Leser verfügbar machen. 



Impossamole 

Drücken Sie im Pausemodus einmal die drei Tasten O, C und 
H gleichzeitig. 

Pipe Mania 

Die achl Level-Codes in Pipe Mania lauten wie folgt: 


Level 

5 

9 

12 

17 

21 

25 

29 

33 


Code 

FINE 

NEWS 

FAIL 

SAIL 

ERIC 

TAPE 

SLOW 

ACHE 


Bonus 

4000 

8000 

12000 

16000 

20000 

24000 

28000 

32000 


Mika Töwe/rs 


STATSECE - CASSETTE 
ROADSWSP - PASSWORD 
KOSTJYCI -JOYSTICK 
PMTCOURE - COMPUTER 
REDRAWHA -HARDWARE 
CARHIPSG - GRAPHICS 

Für denjenigen, dessen Spielgeschick doch noch etwas ver¬ 
besserungswürdig ist, haben wir auch noch einen kleinen 
Chcat. Wenn Sie an einem vollen Schrank angelangt sind, 
bewegen Sie den Joystick nach unten, und drücken Sie 
gleichzeitig die Tasten P-R-O-B-E. 


Bernhard Seitz/rs 


Bruce Lee 

Wenn Sie als Gegner einen zweiten Spieler einstellen, haben 
Sie neun Leben. Lassen Sie nun diesen Spieler stehen, wird 
er nach einiger Zeit selbständig. 


Trantor the last Stormtrooper 

Wer bei diesem Spiel weiterkommen will, sollte neben etwas 
Spielgeschick auch noch folgende Paßwörter parat haben: 


CAILRINS 

BEADORYK 

EFWSORTA 

ETOPSNMK 

MCRPUEST 

LAMENTIR 


-SINCLAIR 

- KEYBOARD 

- SOFTWARE 

- KEMPSTON 

- SPECTRUM 

- TERMINAL 


Sollten Sie jetzt noch den Bonus an Leben holen können, ste¬ 
hen anstatt zehn oder elf Leben 00 oder 01 in der Anzeige. 
Dies bedeutet jedoch nicht, daß Sie nur ein oder sogar kein 
Leben haben, sondern es stehen Ihnen 100 oder sogar 101 
Leben zur Verfügung. So müßte sich das Spiel gut meistern 
lassen. 

Ein weiterer Tip ist, daß Sie, wenn Sie sich am Ende des drit¬ 
ten Bildes hinlegen, ein Bild weiterkommen. 

Herbert Maucher/rs 
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I 


Bubble Bobble 

Wer bei Bubble Bobble nicht über die ersten Level hinaus¬ 
kommt, sollte folgende Codes eingeben: 
ZZZ252WZZZZ4XX3ZZZ411XWZZ1Y24V1Z - ein 
Spieler 
und 

ZZ12214ZZZZ24WVZZZ3W3W3WYZZ1Y24V34 - zwei 
Spieler. 

Hiermit werden Sie in den 79. Level versetzt. 

Bei folgenden Levels verwandeln sich alle Blasen nach der 
Vernichtung des letzten Gegners in Kuchen, Diamanten, 
Melonen ...: 

1,5,10,16,23.31,40,50,61,73 

The Real Ghostbusters 

Drücken Sie hintereinander die Tasten T-R-G-B (7he fleal 
Ghostßusters), und der Cheat-Mode wird aktiviert. Wenn 
Sie danach E(xit) drücken, haben Sie unendlich viele Leben 
und werden einen Level weiter transportiert. 


Wonderboy 

Den meisten Wonderboy-Spielern ist sicherlich nicht be¬ 
kannt, daß man schneller laufen kann, wenn man zusätzlich 
zu der Richtung auch noch den Feuerknopl gedrückt hält. 

Vermeer 

Wenn man beim Kauf einer Plantage wenig dazukauft, nichts 
anbaut und wieder verkauft, sinkt der Bodenpreis. Man 
macht zwar ein Verlustgeschäft, kann aber, nachdem der 
Landpreis unter Null gesunken ist, das ganze Land kaufen 
und bekommt sogar noch etwas dazu. 

Mercenarv 

Um ein Gebäude zu zerstören oder ein feindliches Schiff an¬ 
zugreifen, verläßt man am besten das eigene Schiff und läßt 
sich abschießen. Dies hat keinen Nachteil und man behält 
sein Schiff. 

Die Raumstation läßt sich nicht mit dem Schiff erreichen. 
Hierzu benötigt man die Chcbse, die man in einem Raum un¬ 
ter der Erde findet. Dorthin gelangt man mit einem käfigför¬ 
migen Aufzug, wenn man die A-Taste drückt. 

Ingo Graf/Joachim Sobczak/rs 


Exolon 

Die Speicherstelle für Leben ist beim CPC 6128 &41E4. Der 
Poke lautet also POKE &41E4,Leben. 

Christian Schomburg/rs 


Ninja Massacre 

Mit folgenden Paßwörtern gelangt man von der 4. bis zur 40. 
Runde: RAIN, ROCK, PINK, STAG, HÜLL, BEER, WARD. 


Savage 

Die benötigten Paßwörter lauten: SAB ATTA und FERGUS. 

Christian Röhr/rs 


Enduro Racer 

Wer hier die Tasten <SHIFT>, < CONTROL >, <SPA- 
CE> und <8> gemeinsam drückt, läßt den Computer die 
ersten drei sowie einen Teil der vierten Runde für sich fah¬ 
ren. Am Ende jeder Strecke kassiert man ordentlich Punkte. 
Natürlich kann man das Motorrad auch lenken, so daß es im 
vierten Level nicht an dem Baum hängen bleibt. Dies ist je¬ 
doch nicht unbedingt nötig, da alle Hindernisse in diesem 
Modus ignoriert werden. Der gleiche Tastengriff schaltet 
den Selbstfahrmodus wieder aus. 

Torsten Knörr/rs 

Bombjack, Astro Attack und Airwolf II 

Mit folgenden drei Laderoutinen ist bei oben genannten Spie¬ 
len mit 62 beziehungsweise unendlich vielen Leben zu 
rechnen: 

Bombjack 

10 MODE 0 

20 LOCATE 1,10 

25 PRINT“*B0KB JACK*“ 

30 PRINT:SOUND 1,19,0,8:print“Foke 
by O.L.I“ 

40 FOR i=l TO 1500: HEXT 
50 'Hier fängt der Lader an 
60 MEMORY 5999: BOEDER 0:cls:for f=0 
TO 15:READ a:INK f,a:LCAD“!BJCC 
DE“,6000:READ w $:v=VAL 
(“&“+w$): POKE w,&3E 
70 CALL 6000 

80 DATA 1,0,26,8,24,13,11,6,15,16,5,2, 

6,3,20,10 

90 DATA 1800,1811,1F7E,2030,20CB,2333 
100 RETURN 



Bild I: Impossible? Auch das Programm “Impossible 2" laßt sich lösen. 
Pin Liedchen hilft weiter. 


Bild 2: Trantor: "The Last Stormtrooper " läßt sich schnell von einem Level 
in den anderen bewegen 
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Astro Attack 
10 MODE 1 
20 MEMORY &4E1F 
30 b=0 

40 BOEDER b: INK b,b:INK 1,18: INK 2,5: 

INK 3,25 
55 ' 

| 56 LOAD“! ASTRO.BIN" 

58 q=&3E 

60 READ hpt$: POKE VAL(“&“+iipt$),q: CALL 35800 
70 DATA 

710A,76F6,7762,7A5D,86C8,876D,8A75, 8A88 
50 END 

Airwolf II 

10 MEMORY 39081: OPENOUT"D“: MEMORY 699: 

closeout 

20 CLS 

30 BORDER 0: INK 0,0 
40 MODE 0 
50 F0R a=l TO 15 
60 INK a,0:NEXT a 
70 LOAD“AIRS.SCR“, &C000 

80 INK 0,0 : INK 1,0 : INK 2, 0 : INK 3,26 : INK 4, 0 : INK 5,0 : INK 6,6: INK 
7, 0 : INK 8,1: INK 9, 2 : INK 10 , 5 : INK 11, 11 : INK 12 ,14: INK 13, 20 : 
14,13:INK 15,10 

90 LOAD"AIRCODE'‘: READ w$!POKE VAL( u &"+v $), &3E:CALL 26192 
100 DATA 4FEF, 5457,753F,7D44,822E 

Oliver Kropp/rs 


Impossible Mission II 

Um das Spiel zu schaffen, ist die richtige Zusammenstellung 
der einzelnen Liedstücke erforderlich. Hier das komplette 
Lied: 

“She walks holes into the floor. 

You will be the life of the party. 

Dont gi ve up! 

An old flame may re turn. 

This is the time of devote to charities. 

You will radiale a special kind of excitemen. “ 

Noch ein Tip: Wenn man mit den Aufzügen fährt, kann man 
durch die Mauern springen. Nun dürfte es keine Schwierig¬ 
keit mehr sein, das Spiel zu schaffen. 

Wolf Klingenberg/rs 


Hydrofool 

Mit dem Löffel kann man die Qualle töten, mit dem Hufeisen 
die Seepferdchen, den Baby wal mit der Harpune erlegen und 
den Wolfsfisch mit dem Anker. Die Pyranhas werden mit 
dem Knochen abgelenkt , und die Truhe wird mit dem Schlüs¬ 
sel geöffnet. 

Für die erste Ebene braucht man zwei Schuhe und zwei 
Eimer, in der dritten Ebene vier Muscheln. 


Pyjaraarama 

Hier der Lösungsweg in Kurzform: 

A Pound Coin gegen den Penny tauschen. Den Eimer im Bad 
füllen und bei den fleischfressenden Pflanzen abstellen. Mil 
dem Penny die Tür über dem Startraum öffnen, den Hammer 
holen und im Lift gegen den Feuerlöscher tauschen. Nun 
zum Speicher fahren und den Kanister (der bei den lieben 
Pflänzchen steht) an der Tankstelle füllen und an der Rakete 
abstellen. Wieder zurück zum Speicher (Feuerlöscher nicht 
vergessen). 

Den Computer nehmen und auf dem Dach gegen das Schlüs¬ 
selbund tauschen. Jetzt den Schornstein runter und durch das 
Feuer gehen. Den Schlüssel links liegen lassen und dann vom 
Rollband auf das Seil springen. Nachdem man nun das Ge¬ 
länder runtergerutscht ist, müßte das Schlüsselbund gegen 
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den Helm getauscht worden sein. Das Bibliotheksticket kann 
man für das Buch einlösen; mit dem Buch und dem Helm die 
Schere holen. Diese im Startraum ablegen. 

Mit dem S-Schlüssel kann die Tür bei den Stühlen geöffnet 
und der Schlüssel gegen die Pistole getauscht werden. Dann 
mit der Pistole und dem T-Schlüssel zum Speicher und die 
Tür hinter der Tankstelle öffnen. Nun die Pistole mit der Bat¬ 
terie laden und mit dem Kanister und der Pistole in der Rake¬ 
te wegfliegen. Die Pistole dort ablegen. Jetzt die HELP-Ta- 
ste drücken und mit der Schere den Ballon abschneiden, mit 
ihm fliegen und den Schlüssel holen. Durch ihn bekommt 
man den Magneten. Nun die LIFT-Taste drücken und den 
Kanister wieder füllen. Den Magneten mit zur Rakete und 
auf dem Mond in den nächsten Raum nehmen. Dort die Taste 
drücken und den Uhrenschlüssel an sich nehmen. Nun 
braucht nur noch der Wecker aufgezogen zu werden, und Py- 
jamarama ist gelöst. 

Michael Köhler/rs 

Antiriad 

Gefrustete Spieler von Antiriad sollten zunächst einmal fol¬ 
gende Pokes versuchen: POKE &57D4,0:POKE 
&57D5,0:POKE &57E8,0. Dadurch bekommt unser Held 
unendlich viele Leben. Allerdings muß in Kauf genommen 
werden, daß man bei jedem neuen Leben die Meldung "AL- 
WAYS CARRY1NG RECH ARGE CELL“ erhält. Außer¬ 
dem wird durch diesen Poke ein Energieverlust der Rüstung 
nicht unterdrückt; man muß sich also weiterhin um die Be¬ 
schaffung von Energiezellen kümmern. Wer auch damit 
noch nicht zurechtkommt, sollte folgenden "Brutalo-Poke“ 
eingeben: 

POKE &5BBE, 0: POKE &5BC2,0: 

Dadurch wird (bis auf die oberste Region) jeglicher Energie¬ 
verlust verhindert; man kann also einfach über alles hinweg¬ 
laufen beziehungsweise -fliegen. Das ist zwar nicht sonder¬ 
lich sinnvoll, aber man kann sich alles mal in Ruhe ansehen. 
Wer nicht weiß, wie er Antiriad einen Basiclader verpaßt, 
kann das Listing “ANTTR1AD“ eingeben. Voraussetzung für 
das Funktionieren ist jedoch, daß Antiriad von der 6 Com¬ 
puter Hits“-Compilation stammt, da das Programm die 
Pokes direkt auf die Diskette schreibt und die Belegung der 


Sektoren also identisch sein muß. Bitte benutzen Sic für die¬ 
sen Patch nur eine Kopie der Spieldiskette, da wir für das 
Mißlingen durch falsches Abtippen oder andere Fehler kei¬ 
nerlei Haftung übernehmen können. 

Christoph Bricden/rs 


Sim City 

Starten Sie zunächst eine neue Stadt und speichern Sie den 
Spielstand - ohne irgend etwas gebaut zu haben - auf die 
Rückseite der Originaldiskette. Laden Sie diesen nun wieder 
ein und speichern Sie ihn abermals auf einer anderen zuvor 
formatierten Diskette ab. Wenn Sie nun den Spielstand von 
der zweiten Diskette einladen, ist die Anzeigentafel total 
durcheinander, lediglich die unterste Reihe wird normal dar¬ 
gestellt. Dies hat jedoch keine Auswirkung und richtet sich 
nach einiger Zeit wieder ein. Nun haben Sie über zwei Mil¬ 
lionen Funds. 

Setzen Sie das erste Kraftwerk vollständig in einen Wald. 
Nach einer gewissen Zeit - oder, was wahrscheinlicher ist, 
nach einer bestimmten Anzahl von Kraftwerken - können 
Sie erneut kein Kraftwerk setzen. Bauen Sie nun ein Wohn¬ 
gebiet (Residential), klicken Sie “Windows" an und wählen 
sie “Evaluations“. Wenn Sie Feuer drücken, um ins eigentli¬ 
che Spiel zurückzukehren, müßten Sie weitere Kraftwerke 
setzen können. Vielleicht finden andere Leser noch mehr 
hierüber. 

Übrigens: Schließen Sie Airports nicht ans direkte Stromnetz 
an, sondern geben Sie ihnen eigene Kraftwerke. Aufgrund 
des hohen Strombedarfs kann es sonst schnell zu Stromaus¬ 
fällen kommen. 

Heiner de Wcndt/rs 


Back To The Future 3 

Hier kann man unendliche Leben erhalten, wenn man wäh¬ 
rend des Spiels folgende Codes eingibt: 

Level 1: ROTTEN CHEAT 
Level 2: LOUSY CHEAT 
Level 3: LOW DOWN CHEAT 

Mike Behrend/rs 


10 ' _ C1750 ] 

20 ' - POKEPROGRÄMM ANTIRIAD - [1729] 

30 ' - [1750] 

40 ' - written by BBSoft - [1131] 

50 '- [1750] 

60 ' - CALL &9000,1 bewirkt POKE &57D4,0:P [3088] 

??. S ”?^L ; [“oo!2 7 beiirl t t POKE &5BBE,0:P 12498, 

80 ' - CALL &9000,3 bewirkt zuruecksetzen [1916] 

90 r / P °----__ [1750] 

100 MEMORY &8FFF [207] 

110 csum-0 . . . 

120 FOR adr=&9000 TO &90B7:READ a$:byte=VA [5533] 
L("&"+a$):POKE adr,byte:csum=csum+byte:NEX 

130 IF csum<>&5353 THEN PRINT"DATA-FEHLER [2717] 
t» • END 

140 CLS:PRINT"ANTIRIAD-POKES : " 

150 PRINT t 361J 

160 PRINT" (1) = unendlich viele Leben" [3976] 

170 PRINT"(2) = (fast) unendliche Energie [4315] 

180 PRINT"(3) = Pokes zuruecksetzen" \lliV 

190 PRINT 361] 

200 INPUT"> ",n l '°iJ 

210 IF nol AND n<>2 AND n<>3 THEN 140 [2874] 

220 PRINT 1361] 


230 PRINT"Kopie der Originaldisk ins Laufw 
erk <A> einlegen ..." 

240 WHILE INKEY$="":WEND 
250 CALL &9000,n 
260 CALL 0 

270 DATA FE,01,C0,DD,7E,00,F5,21 
280 DATA FF,B0,11,40,00,0E,07,CD 
290 DATA CE,BC,21,AC,90,CD,D4,BC 
300 DATA 22,AE,90,21,AD,90,CD,D4 
310 DATA BC,22,Bl,90,Fl,11,00,24 
320 DATA 21,B4,90,E5,E5,3D,28,3A 
330 DATA 3D,28,4D,3D,28,03,El,El 
340 DATA C9,El,E5,CD,94,90,01,D4 
350 DATA 01,09,3E,CB,77,23,3E,3E 
360 DATA 77,01,13,00,09,3E,3C,77 
370 DATA El,CD,9A,90,CD,A0,90,01 
380 DATA BE,01,09,3E,90,77,23,23 
390 DATA 23,23,3E,AF,77,El,CD,A6 
400 DATA 90,C9,El,CD,94,90,AF,01 
410 DATA 04,01,09,77,23,77,01,13 
420 DATA 00,09,77,El,CD,9A,90,C9 
430 DATA El,CD,A0,90,AF,01,BE,01 
440 DATA 09,77,23,23,23,23,77,El 
450 DATA CD,A6,90,C9,0E,C6,DF,AE 
460 DATA 90,C9,0E,C6,DF,Bl,90,C9 
470 DATA 0E,C8,DF,AE,90,C9,0E,C8 
480 DATA DF,Bl,90,C9,84,85,00,00 
490 DATA 07,00,00,07,00,00,00,00 


[5828] 

[1607] 

[336] 

[251] 

[783] 

[1245] 

[1559] 

[1127] 

[996] 

[1534] 

[1411] 

[861] 

[1819] 

[1267] 

[1661] 

[1809] 

[1840] 

[374] 

[1448] 

[950] 

[1743] 

[1557] 

[2018] 

[1433] 

[1273] 

[758] 

[1752] 
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Tips & Tricks 


ARTWORX 

Verbesserte Druckqualität für 
ARTWORX-Grafiken 

Dali das Programm ARTWORX aus der CPC 11/88 im¬ 
mer noch hochaktuell ist, beweist wieder einmal eine 
kleine Verbesserung. Diesmal wurde ein wenig an der 
Druckroutine gebastelt, was als Resultat eine wesentlich 
bessere Qualität bei den Ausdrucken hervorbringt. 


Auch beim CPC gibt es in Sachen Kompatibilität so manches 
zu verbessern. Das beweisen immer wieder Änderungen und 
Zusätze, die nebeneinander her überhaupt nicht funktionie¬ 
ren. Bei dieser Ergänzung ist das schon ein wenig anders. So 
kann die verbesserte Druckroutine für das ARTWORX- 
DTP-Programm aus Heft 11/88 neben der “Schreibverbesse¬ 
rung“ aus Heft 4/5‘91 benutzt werden. Der benötigte Spei¬ 
cher hierfür geht von der Adresse &b000 bis zirka &bObd. 

Programm-Grundidee 

Zwischen allen nebeneinander!iegenden Punkten sollen in x- 
Richtung zwei und in y-Richtung ein Punkt gedruckt werden, 
was zur Folge hat, daß das Druckbild wesentlich schärfer aus¬ 
sieht. Durch geschickte logische Verknüpfungen ist dies auch 
geglückt. Notwendig hierfür war die Errichtung eines Puf¬ 
fers, der die gerade gedruckte Zeile zwischenspeichert (ab 
&ac()2, 640 Bytes lang). Gedruckt wird, jede Zeile doppelt 
und in vierfacher Dichte mit einem Zeilenvorschub von 
14/216 Zoll. Die Routine verschafft den Ausdrucken eine bes¬ 
sere Optik und druckt alle 640 Pixel des Bildschirmspeichers 
im Gegensatz zum ursprünglichen Programm, das nur 639 
Pixel ausdruckte. Das Programm funktioniert auf allen 
CPCs. 

Leichte Installation 

Wenn Sie diese Routine in Ihr ARTWORX mit einbinden 
möchten, sollten Sie wie folgt Vorgehen: 

• Tippen Sie das Programm PATCH.KL ab und legen Sie 
eine Kopie Ihrer ARTWORX-Diskette ein. 

• Speichern Sie die Datei ab und starten Sic das Programm 
mit RUN. 



Nun wird zuerst das Programm ARTWORX.PRG eingela¬ 
den, gepatcht und in modifizierter Form wieder abgespei¬ 
chert. Gleich im Anschluß wird die Datei PRINTAWX.NEU 
auf Diskette geschrieben. 

• Laden Sie jetzt das Programm ARTWORX.BAS und fügen 
Sie die nachfolgende Zeile ein: 

500 MEMORY &3FFF:P0KE SrAC00,2:P0KE &AC01,&AC: 

LOAD" PR INTAWX. NEU 11 , &4000 

• In den Zeilen, in denen ein POKE-Befehl gefolgt von dem 
nachfolgenden Text steht, ändern Sie einfach die Werte ab: 

zeilenvorschub+l, 51, 
zeilenvcrschub+2,14, 
graf ikmodus+2,3> 
grafikmodus+3,126, 
grafikmodus+4,7 

Nun ist der Patch beendet und Sie erhalten ab sofort Ihre 
Hardcopies in einer wesentlich besseren Qualität. 

Klaus Weber/rs 


Auf der DATA BOX-Diskette finden Sie das komplette ART¬ 
WORX-Programm, bei dem dieser Patch schon durchge- 
fiihrt wurde. Gleich mit eingebunden bei der DATABOX- 
Fassung ist die Ergänzung aus der CPC 4/5 '91. Somit steht 
Ihnen jetzt ein überarbeitetes und wesentlich leistungsfähi¬ 
geres DTP-Programm zur Verfügung. 


10 1 patch.kl 

20 MEMORY &7FFF:LOAD"ARTWORX.PRG",&8000 
30 FOR 1=1 TO 37:READ A$,B$:POKE VAL("&"+A 
$),VAL(+B$):NEXT I 

40 DATA 839F,00,83A0,B0,83A5,00,83A6,B0,83 

AB,00,83AC,B0,83B1,00,83B2,B0 

50 DATA 83B7 / 00,83B8,B0,83BD,00,83BE,B0,83 

C3,00, 83C4,BO,83CE,00,83CF,B0 

60 DATA 83D0, C3,83D1,0D,83D2,B0,836B,06,83 

95,C3,8396,A0,8397,B0,8004,33 

70 DATA 8005,0E,8008,2A,8009,03,800A,7E,80 

OB,07,8001,00,8002,40,9015,CD 

80 DATA 9016,06,9017,BB,9018,CD,9019,00,90 

1A, 00 

90 SAVE"ARTWORX.PRG",B,&8000,&15C0 

100 DATA 01,AF,00,11,00,B0,21,0E,40,ED,B0, 

C3,4C,00,C5,E5,2A,00,AC,77,23,22,00 

110 DATA AC,E1,C1,C9,78,FE,01,C2,13,04,DD, 

7E,07,C5,E5,2A,00,AC,77,21,02,AC,01 


[657] 


120 DATA 7E,03,22,00,AC,7E,CB,87,CD,4D,04, 

[1166] 


7E,2 3,A6,CB,87,F5,CD,4D,04,Fl,CD,4D 

[3965] 


130 DATA 04,OB,78,FE,00,20,E7,7E,CD,4D,04 , 
3E,0D,CD,4D,04,3E,1B,CD,4D,04,3E,4A 

[3692] 


140 DATA CD,4D,04,3E,01,CD,4D,04,3E,1B,CD, 
4D,04,3E,2A,CD,4D,04,3E,03,CD,4D,04 

[3910] 


150 DATA 3E,7E,CD,4D,04,3E,07,CD,4D,04,21, 
02,AC,01,7E,03,D5,7E,5F,17,A3,CD,4D 

[3290] 


160 DATA 04,7E,23,A6,5F,17,A3,5F,CD,4D,04, 
7B,CD,4D,04,OB,78,FE,00,20,E5,Dl,7E 

[2988] 


170 DATA 17,A6,CD,4D,04,CD,09,BB,El,CI,C3 , 

13,04,F5,78,FE,01,28,01,19,Fl,05,C2 

[2064] 


180 DATA AC,03,C3,D8,03,*ENDE* 

190 ADR=&8000:RESTORE 100 

[1825] 


200 READ D$:IF D$="*ENDE*"THEN 220 

[3460] 


210 POKE ADR, VAL( "&"+D$ ) : ADR=ADR+1 '.GOTO 20 

[2743] 


220 SAVE"PRINTAWX.NEU",B,&8000,&BD 


230 PRINT D$:END 


[3789] 

[3738] 

[3988] 

[3800] 

[3494] 

[3399] 

[779] 

[1118] 

[957] 

[1980] 

[1509] 

[346] 
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Briefe 


CPC 


Pokes 

Wer bei “ Breakthru " a//.? PC/ 
6/7'90 255 Leben haben möch¬ 
te, der .sollte die Zeile 245 mit 
POKF. &3001,255:poke & 312D, 
255 einsetzen. 

Wer weiß, in welchen Binärteil 
von "Bubble Babble" der POKF 
(Pake &111E.0) eingesetzt wer¬ 
den muß, damit man hier die 
Unsterblichkeit erreicht? 

Matthias Koch 
Uetersen 


CPC 


Bilderscrolling 

Für ein Programm benötige ich 
eine Routine, die es ermöglicht, 
ein von Diskette geladenes Bild 
beliebig lange horizontal über 
den Bildschirm zu scroUen. Mit 
folgendem kurzen Programm ist 
dies möglich: 

10 MODE l:LOAD u screen" 

20 FOR a=l to 39 
30 CALL &BD19: OUT &BD00, a 
40 NEX? a 
50 GOTO 20 

Hierbei tritt jedoch ein für mich 
unerwünschter Nebeneffeki auf: 
Der Bildschirm wird nicht stän¬ 
dig auf der gleichen Höhe gesc- 
rollt. Daher meine Frage: Wel¬ 
che Änderungen muß ich vor¬ 
nehmen, damit sich das Bild 
ständig auf der gleichen Höhe 
bewegt? 

Thomas Sibum 
Haren 1 

Leider können wir Ihnen hie¬ 
rauf keine Antwort geben. Viel¬ 
leicht weiß einer unserer Leser 
jedoch mehr und möchte Ihnen 
seine Version vorstcllen. 

Red. 


CPC 


Last Ninja 2 

Anfang 89 habe ich mir das 
Spiel Last Ninja 2 gekauft. Bei 
diesem Spiel komme ich bis zum 
5. Level (The Office). Ein 
Freund von mir, er besitzt einen 
Commodore C64, gab mir die 
Komplettlösung dieses Spieles. 
Dieser Anleitung nach muß ich 
mich im 5. Level beim Propel¬ 
ler/Ventilator vor das Gitter set¬ 


zen, um es zu öffnen. Dies funk¬ 
tioniert bei meiner CPC-Ver- 
sion jedoch nicht. Können Sie 
mir sagen, wie ich diesen Level 
hinter mich bringe? 

Daniel Carballo 
Fspenkamp-Fi estel 

Auch diese Frage möchten wir 
an unsere Leser weitereeben. 

Red. 


CPC 


Ohne Moos nix los 

Das Programm STEUER aus 
der PCI 6/7 '91 stellt eine Berei¬ 
cherung fiir so manche Softwa¬ 
resammlung dar. Da jedoch Be¬ 
amte weder reuten- noch ar¬ 
beitslosenversicherungspflich¬ 
tig sind, ist das Programm für 
diesen Berufszweig nicht zu ge¬ 
brauchen. 

Damit dem abgeholfen wird, 
hier meine Änderung: 

170 WIND0V #1,47,80,6,26 
561 L0CATE 2,23 : INPUT “Ar- 
beitslosenvers.pflichtig 
(,;/n): “, av$ 

1480 av=r*Q.0215:1F ab 
>6500*0.0215 THEN LET 
av=6500*0.0215:1? av$="n u CR 
av$=“N“ THEN LE? av=0 

1481 IF av$="n“ CR av$=“N“ THEN 
LET av=0 

Rudorf Söhnke 
Boostedt 


CPC 


CPC Digiblaster 

ln Ihrem Artikel schreiben Sie, 
daß CPC-Benutzer nur neidisch 
auf die 16-Bit-Kollegen blicken 
können, worunter sie unter an¬ 
derem den Atari ST aufführen. 
Daß der Unterschied zwischen 
CPC-Sound und dem Sound des 
Atari STtätsächlieh so groß ist, 
obwohl beide jedoch haargenau 
den gleichen, relativ annehmba¬ 
ren Sound-Chip (A Y-3-8912) 
eingebaut haben, ist, wenn man 
bedenkt, daß es im wesentlichen 
nur um einen fehlenden Zenti¬ 
meter geht, ganz und gar nicht 
mehr lustig, sondern eher zum 
Heulen! 

Der CPC besitzt aller Wahr¬ 
scheinlichkeit nach einen 
0,2-Watt-Lautsprecher mit ei¬ 
nem Durchmesser von 4 cm bei 
einem Preis von weniger als 
3,— DM. Bei solch einem Mi¬ 


niaturformat kann sich das also 
gar nicht nach etwas anhören. 
Wie gesagt, hätte da schon ein 
5-cm-Lautsprecher noch gerin¬ 
geren Preises eine erhebliche 
Verbesserung gebracht. Noch 
viel besser wäre es natürlich ge¬ 
wesen, beispielsweise ein oder 
zwei l()-cm-Lautsprecher fiir je 
5, - DM direkt in den Monitor 
einzubauen; unter Ausnutzung 
des Bildschirmgehäuses als 
Schallwand. 

Da dieses nicht so ist, sondern 
die Entwickler des CPC in ihrer 
Vorstellung, was die Optimie¬ 
rung von Preis-Größe-Leistung 
anbelangt, mal wieder etwas zu 
weit gegangen sind und bei ih¬ 
rem ansonsten für damalige 
Verhältnisse guten Produkt ge¬ 
nau an der falschen Stelle ge¬ 
spart haben (siehe auch 7-Bit- 
DruckerschnittsteUe, fehlende 
Hardware-Sprites, Scrolling 
und so weiter; alles beim CPC 
plus verbessert), bleibt dem An¬ 
wender nichts anderes übrig, 
als eine externe Lautsprecher¬ 
box anzuschließen. 

Ich selbst betreibe an meinem 
CPC über einen 8-Watt-Ver- 
stärker (KFMO-Bausatz, 17,— 
DM: Nachbau aus Elektronik- 
Fachbüchern etwa zum halben 
Preis) eine veraltete, billige 
Lautsprecherbox (Preis etwa 
15, - DM) und bin von dem Er¬ 
gebnis begeistert. Nun erklin¬ 
gen selbst solche Titelmusiken 
wie die von Boulder Dash, die 
sich ehemals relativ nervend an¬ 
gehört haben, in angenehm wei¬ 
chen Tönen. Auch der Baß 
kommt wesentlich besser her¬ 
aus. Eine Stereo-Ausgabe 
brachte übrigens eine weniger 
überzeugende Qualitätsverbes¬ 
serung. 

Christoph Schmitt 
Winningen 


Verschiedenes 


Leserumfrage 

Ihre Leserumfrage empfinde ich 
als gut und wichtig. Außerdem 
freue ich mich sehr, daß die Zei¬ 
tung künftig wieder als CPC In¬ 
ternational erscheint. Der PC- 
Teil hat mich die letzten Jahre 
doch etwas gestört, da ich ihn 
als CPC-Benutzer nicht ge¬ 
braucht habe. 

Zu dem Begriff “nicht Techni¬ 
ker“ im Fragebogen möchte ich 
folgendes hinzufügen : 

Die ersten Ausgaben dieser Zei¬ 


tung waren für den Laien besser 
verständlich. Da ich meinen 
CPC nicht 24 Stunden am Tag 
benutze, sondern nach längerer 
Pause wieder eingestiegen bin, 
hatte ich Anfangsprobleme zu 
bewältigen. Die alten Ausgaben 
der Zeitung haben mir dabei we¬ 
sentlich besser geholfen, als die 
neuen. Ich will damit nicht sa¬ 
gen. daß alles wiederholt wer¬ 
den soll, nur daß die Artikel et¬ 
was verständlicher geschrieben 
werden könnten. Dies sollte vor 
allem bei Programmanleitun¬ 
gen der Fall sein. 

Eine gute Sache wäre es außer¬ 
dem, wenn Sie nach Auswertung 
der Leserumfrage eine Liste mit 
Händleradressen und User- 
Clubs herausgeben würden. 
Hier in Kiel ist es leider unmög¬ 
lich, Soft- oder Hardware zum 
CPC zu bekommen. Es gibt 
nicht einen Händler, der Drei- 
Zoll-Disketten oder Spielpro¬ 
gramme verkauft. Die meisten 
Verkäufer sehen mich nur ver¬ 
ständnislos an und behaupten, 
es gäbe überhaupt keine Drei- 
Zoll-Laufwerke. Ist es wirklich 
schon peinlich, einen CPC zu 
besitzen ? 

Ich finde nicht! Mein Mann ar¬ 
beitet mit einem PC 286 AT, 
aber mein “Schneiderlein “ gebe 
ich nicht her. In der Beziehung 
kann ich dem A rtikel “Liebe Le¬ 
serinnen und Leser ..." nur zu¬ 
stimmen. Ich freue mich auf die 
neu alle CPC International. 

Katharina Sperling, 
Kiel 

Wie Sie sicherlich an diesem 
Brief sehen, sind nicht alle aus 
unserer Leserschaft darauf er¬ 
picht. unbedingt einen vor Lei¬ 
stung strotzenden 486er mit rie¬ 
sen Festplatte und Super- 
VGA-Karte ihr eigen zu nen¬ 
nen. “Jedem das. was ihm ge¬ 
bührt“. oder besser “jedem das. 
was er benötigt“ sollte das Mot¬ 
to beim Computerkauf sein. 
Oder ist wirklich irgendjemand 
der Meinung, für die private 
Datenbank unbedingt einen PC 
haben zu müssen? Daß CPC und 
PCW mehr können, als man ih¬ 
nen zutraut, haben wir sicher¬ 
lich in den vergangenen sechs 
Jahren der CPC International 
bewiesen. Auch wurde immer 
wieder gezeigt, daß man sich 
wirklich nicht seines Computers 
schämen muß. Spielprogramme 
gibt es mehr als genug, ebenso 
wie ernsthafte Anwendungen. 
Aufgrund vieler Leserbriefe 
wie diesem können wir beruhigt 
sagen, daß wirklich nicht alle 
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Briefe 


ein ungezähmtcs Ungetüm in 
Ihrer Wohnung haben wollen. 
Halten Sie sich eine Katze oder 
einen Tiger? 

Auch in Sachen An fangsprob le¬ 
ine wird sich demnächst oder 
besser schon mit dieser Ausga¬ 
be so einiges tun. Einstcigerkur- 
se wie unser Rollenspielartikel 
werden nur der sichtbare Teil 
des Eisbergs sein. 

Desweiteren werden wir die 
Adressen der Händler, die noch 
Soft- und Hardware für den 
CPC beziehungsweise PCW an¬ 
bieten, sicherlich nicht geheim¬ 
halten. Hierüber werden Sie 
nach Auswertung der Leserum¬ 
frage mehr erfahren. 

Red. 


CPC 

Apple-Drucker am 
CPC 

Seit einiger Zeit besitze ich ei¬ 
nen A PPLE-9-Nadel-Drucker 
und habe einige Probleme mit 
der Einstellung der DlP-Schal- 
ter, da mir auch das Handbuch 
fehlt. Wie kann ich nun meinen 
Drucker so optima! an meinen 
CPC 464 anpassen wie es geht? 

Sven Metzken 
Schleswig 

Da wir nicht für jeden Drucker 
ein Handbuch zur Verfügung 
haben, müssen wir diese Frage 
an unsere Leser weitergeben. 
Vielleicht stellt jemand, der 
ebenfalls über einen solchen 
Drucker verfügt, Kopien aus 
seinem Handbuch zur Verfü¬ 
gung. 

Red. 


CPC 


Data-Zeilen 

Der folgende Trick kann all de¬ 
nen, die häufig Data-Zeilen ab¬ 
tippen, viel Zeit und Tipparbeit 
ersparen. 

Geben Sie zuerst vor der Einga¬ 
be der Datas folgende drei Zei¬ 
len ein: 

a$=CH!t$ (250) +STRING$( stei¬ 
ler., 243)+“DATA“ 

FOP. 1=1 TO an- 

0 ahl: a$=a$+S TR I i\'G$ (2,243)-'-“ 

, “: NEXT i 

KEY 139,a$+CHn$(13) 

Die Variable “anzahl" muß 
durch die Anzahl der Kommata, 
die in einer DATA-Zeile enthal¬ 
ten sind, ersetzt werden. Außer¬ 
dem muß man noch die Variable 
“stellen“ entsprechend den Zei¬ 
lennummern einsetzen: Bei 
dreistelligen Zeilennummern 
muß “stellen“ duch eine “4“, 
bei vierstelligen durch eine “5“ 
und bei fünfstelligen durch eine 
"6“ ersetzt werden. 

Die Data-Zeilen kann man dann 
im AUTO-Modus durch Anein¬ 
anderreihen der HEX-Zahlen 
(immer zweistellig!) und an¬ 
schließendes Betätigen der klei¬ 
nen ENTER-Taste eingeben. 

Martin Schmid 
Moosburg 


PCW 

Fehler!!! 

Bei der Erstellung der PCW- 
Databox zum Heft 8/9*91 ist uns 
leider ein Fehler in der Be¬ 
schreibung unterlaufen. Die 
Dateien müssen nicht, wie in 
der Anleitung steht, mit dem 
Programm NSWEEP entpackt 
werden, sondern mittels des 


Programms UNARC.COM. 
welches sich auf der Databox- 
Diskette befindet. 

Der Entpackvorgang eines Ar¬ 
chivs läßt sich wie folgt in die 
Wege leiten: 

• Starten Sie Ihren Computer 
mit der CP/M Plus Systemdis¬ 
kette Seite 2, 

• legen Sie die DATABOX- 
Diskette in Laufwerk A: ein und 

• tätigen Sie folgende Eingabe: 

A>UNARC <Archiv> M: 

für < Archiv > geben Sie bitte 
den Namen der Archivdatei an. 
Der Entpackvorgang startet 
nun. und nach wenigen Minuten 
stehen die benötigten Dateien 
auf dem Laufwerk M: zur Ver¬ 
fügung. 

Red. 


Allgemein 

Leserbefragung 

Gern habe ich mich der kleinen 
Mühe unterzogen. Ihren Frage¬ 
bogen zum Thema "Zukunft der 
CPC Amstrad International “ zu 
beantworten. Da ein Fragebo¬ 
gen niemals alle Aspekte der Le¬ 
sermeinungen abdecken kann, 
hielt ich es für angebracht, ein 
paar zusätzliche Punkte in die¬ 
sem Brief anzusprechen. 

Da die CPCs sowie die PCWs 
über das Betriebssystem CP/M 
verfügen, sollte man bei Arti¬ 
keln besonders darauf achten, 
daß sich die Programme von ei¬ 
nem Computer auf den anderen 
übertragen lassen. Die Autoren 
sollten dazu gebracht werden, 
sich an die CP/M-Konventionen 
zu hatten, also nur über das 
BDÜS zu gehen, um die in 
CP/M eingebaute Portabilität 
nicht aufzugeben. Wenn schon 


maschinenspezifische BIOS- 
Aufrufe benutzt werden müssen, 
dann bitte kommentiert und 
möglichst an einer Stelle kon¬ 
zentriert! Sonst wird eine An¬ 
passung zum Glücksspiel. 

Dies würde sicherlich auch Be¬ 
sitzer von anderen CP/M-Sy- 
stem interessieren und somit 
eine Art “Blutauffrischung" für 
die Leserschaft und neue Auto¬ 
ren für die CPC International 
bringen. 

Rainer Schmitz 
Göppingen 

Sicher, wir sind eine CPC- und 
PCW-Fachzeitschrift, die sich 
insbesonders mit diesen Com¬ 
putern beschäftigt. Ab dieser 
Ausgabe l inden Sie jedoch eini¬ 
ge neue Rubriken in unserer 
Zeitschrift unter denen sich zum 
Beispiel auch eine CP/M-Ru- 
brik befindet. Hier sollen an¬ 
hand von Problemlösungen in 
Hochsprachen wie C oder PAS¬ 
CAL eine Hilfestellung bei der 
Programmierung gegeben wer¬ 
den. Da diese Rubrik sowohl für 
CPC als auch für den PCW ge¬ 
dacht ist. wird eine Anpassung 
an andere Computer sicherlich 
auch keine Probleme darstellcn. 

Red. 


CPC 

Schalter für CP/M 

Im letzten Heft stellten Sie einen 
Schalter vor, mit welchem es 
möglich wird. CP/M nach dem 
Einschalten des Rechners sofort 
zu booten. Die Boot-Diskette 
muß aber dazu vorher im Lauf¬ 
werk liegen. Kann dies zu Schä¬ 
den an der Diskette oder dem 
Laufwerk führen ? 

Ralf Krelaus 
Brakel-Schmechten 


Public-Domain für Amstrad CPC und Joyce 

Preiswerte Programme für CPC und Joyce mit deutscher Anleitung - so macht Software Spaß! 


1 JHT-Pascul vollständiger Pascal-Compiler • 

! ZHtl-Assembler. Disasscnihlcr, Linker, Debugger 

3 Künstliche Intelligenz - XI.ISP und K-PKOLOG • 

4 C-Compitcr Simil-C • mil Flicßkontmazahlcn " 

5 FORT II-tU - Komfortabler Forth-lnterprctcr 

<i Utilities Djtcikomprcssor, Diskmonilor, Dalcireltcr ... 
' Programme ans dem Graden CPC-Arbcitsbuch " 

S Adventive Colovnil l'tivr (Programm englisch) • 

') Dtsk Utilities - kopiert geschützte Software •• 

10 BirHuic - Umfangreiche Basic-Erwcitcrung ** 


11 Basic-Compiler K-BASIC für CP/M 

12 Tiirtiu Pascal-Programm« - Turbo Inlinet, (irjlik 

13 Programme aus Dm Joyce programmieren 
t-t Programme aus CPC-Dnleiverwultung *" 

IS Wordstar-Tools - Fußnoten, Indes, Sjudtcndmek * 

Kt dliASF.-l Jtrrntiirverwnltuog * 

1? C-Inletprcter SCI - Spielend C lernen * 

18 MncroPack/Z80 - Makroassembler, Debugger. Linker 

19 DFl,"-Programm MEX- Datenübertragung * 


Nicht geeignet für Joyce 


Auf CPC-464/664 nur mit Speichercrwctterung (min. 64K) 


Nur DM JO,- pro Diskette inklusive Porto. Oder drei beliebige Disketten für nur DM 70.-! 
Diskettenformal 3" oder Vortcx 5,25 Nachnahme oder Vorauskasse, Ausland nur Vnrauskassc. 

MARTIN KOTULLA 

Kronacher Stralle 7.8500 Nürnberg 90. Telefon 09 11/30 49 44 


fafjik-kQnmndmofjtwm 


LABEL-MASTER 1.0. 3"-Diskette -t- Handbuch DM 64,95 
Vergüssen Sie einfach alles, was Sie an Etiketton-Proyrammen für den CPC kennen. Labol- Master verbindet die 
einfache Bedienung eines herkömmlichen Et.kellen-Programms mit den grafischen Fähigkeiten von Pro-Design 
Viele wunderschöne Grafiken per Knopfdruck abtu'Bar. 9-und 24-Nadoi-Driickertre>ber Mn Label-Maste'er¬ 
stellen Sie keine Nuilactitliinfzehn-Etiketten, sondern kleine Kunshvorke 
PRO-DESIGN 2.1, 3‘-Disk6tte - Hanhbuch DM 64,95 

Der Klassiker unter den DTP-Programmon. Im Handumdrehen erstellen Sie professionelle Grafiken. Rahmen, 
Schmuckllnian, Symbole und 10 Schritten r- CPC-Zelchensatz (alle mit äöüÄOÜ/S), 50 Zusatzschnltsn erhältlich 
16 Druckloimale/144 Dafstellungsfo.-mate, koslenlose Druckeranpassung usw usw. 

PRO-BOOSTER 1,2,3“-Diskette + Handbuch DM 34.95 

Dokumenten-Druckprogramm, Grafik-Schriltbandgenerator. Snapshotulllity. Dio ideale Ergänzung zu Pro-Oesign 
DESK-ROVAL 1,0. 3 -0iskehe Handbuch DM 54.95 

38 neue BASIC-Betehle sorgen für PC-Luxus wie Desklopsieuerung und Dialogboxen jetzt auch In Ihren Pro¬ 
grammen, auf Ihrem CPCI Kinderleichte Anwendung. Software vom Feinsten für alle kreativen BASIC-Freunoo 
Versand gegen Verrechnungsscheck (+3,- DM) oder Nachnahme (+6,- DM), Wo lete Angebote In unsa-em Katalog 


I 


KOSTENLOSER KATALOG 


fiXEL HEBER, POSTF, 280154, D-5600 WUPPERTAL 26 
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Briefe 


Wir sind wieder da! 


Nach etlichen “stummen“ Monaten steht Ihnen ah sofort unsere 

Redaktions-Hotline 


wieder zur Verfügung. 

Wenn Sie irgendwelche Fragen zu Artikeln im Heft haben, selbst Beiträge anbieten 
möchten oder einfach mal mit einem von uns eine Runde fachsimpeln wollen, sind 
Sie herzlich eingeladen: 

Jeden Dienstag von 16 bis 19 Uhr 

hängt das komplette Redaktionsteam der CPC Amstrad International für Sie an der 
Leitung. 

Unsere Telefonnummern: 


Peter 

Schmitz (sz) 
0 56 51 / 
809- 753 



Ralf 

Schößler (rs) 
0 56 51 / 

8 09 - 752 



Jörg 

Gurowski (jg) 
0 56 51 / 

8 09- 754 



Als erstes können wir Sic beru¬ 
higen. Es können keinerlei me¬ 
chanische Schädigungen am 
Laufwerk oder der Diskette auf- 
treten. Dagegen ist es aber theo¬ 
retisch möglich, daß durch 
Spannungsspitzen beim Ein¬ 
schalten Ihres Gerätes auf der 
Diskette softwaremäßige Schä¬ 
den entstehen. 

Dies ist aber höchst selten und 
trat bei uns noch nie auf. Trotz¬ 
dem sollte man nie mit der origi¬ 
nal Boot-Diskette arbeiten, son¬ 
dern stets, wie es ja eigentlich 
auch üblich ist. mit einer Kopie. 
Diese fertigt man sich am ein¬ 
fachsten mit dem Programm 
DISCKIT oder PIP, welches 
sich auf jeder Systemdiskette 
befindet, an. Red. 


CPC 


Datenträger für Pro- 
grammeinsendungen 

Ich hin Besitzer eines CPC 464 
mit einem 3-Zoll- und einem 

5.25- Zoll-Laufwerk. Ich möchte 
Ihnen ein Programm zusenden. 
Kann ich dieses auch auf einer 

5.25- Zoll-Diskette abgespei¬ 
chert einsenden ? Fran g Müller 

Wiesbaden 


Natürlich ist das ohne weiteres 
möglich. Hier einmal die von 
uns bevorzugten Formate: 

3 Zoll, 178 kByte 
5,25 Zoll, 178 kByte 
3,5 Zoll, 178 kBvte 

Red. 


CPC 

Aktualisierung für das 
Steuerprogranim 

Da wir ja nun alle den Solidari¬ 
tätszuschlag zeih len müssen, 
habe ich in das von Ihnen im 
Heft 6-7/91 veröffentlichte Steu¬ 
erprogramm einige Änderungen 
eingebracht, die das berück¬ 
sichtigen. Hier ebenfalls noch 
einmal die Änderungen der neu¬ 
en BeträgeJür die Arbeitslosen¬ 
versicherung und die Renten¬ 
versicherung. Zeile 1470: 
0,0935 in 0,0885 ändern 
Zeile 1480 0.0215 in 0,034 än¬ 
dern. 

Zur Berücksichtigung des Soli¬ 
daritätszuschlags müssen fol¬ 
gende Zeilen neu eingegeben 
beziehungsweise geändert 
werden: 

1455 so] =11*0.075 
1500 


netto=r4-rv-kv-av-ll-bk-sol: 
GOTO 1730 

1935 PRINT# 1,“ Solidari- 
taetsz. U ;USING 

«#######.## 

DM";sol 

2745 IF sol>0 THEN PRINT 
# 8,“Solidaritaetszuschlag 
“;USING 

"*######.## 

DH“;sol 

Petra Ixas 
Mühlhausen 


CPC 


Artworx und der 6128 
Plus 

Nachdem ich meinen CPC 464 
jetzt endlich gegen einen neuen 
CPC - den 6128 Plus - einge¬ 
tauscht habe, mußte ich mit Be¬ 
stürzung feststellen, daß das 
Programm Artworx auf diesem 
nur eingeschränkt funktions- 
tüchtig ist. So passiert es, daß 
mein CPC beim Anwählen be¬ 
stimmter Funktionen einfach 
abstürzt. Kenn Sie die Ursache 
oder können Sie mir eventuell 
einen Tip geben, wie ich dieses 
Programm anpassen kann ? 

AIexander Grieß 
Esch wege 


Recht haben Sie. Artworx läuft 
wirklich nicht vollkommen auf 
dem 6128 Plus. Die Gründe 
hierfür sind uns jedoch auch 
noch nicht bekannt. Vielleicht 
kann jedoch einer unserer Leser 
bei diesem Problem weiler¬ 
helfen? 

Red. 


PCW 


LocoScript-Dateien auf 
dem PC 

Bisher war mir mein PCW im¬ 
mer ein treuer Arbeitsgefährte, 
und mittels der Textverarbei¬ 
tung Loco Script war es mir ein 
leichtes, meine Korrespondez 
mittels dieses Computers zu be¬ 
wältigen. 

Nun, ich muß dazu sagen, daß 
ich aus beruflichen Gründen oft 
auf Reisen bin, werde ich mir ei¬ 
nen Laptop zulegen müssen, der 
mir auch unterwegs bei länge¬ 
ren Zugfahrten oder Flügen ins 
Ausland mit meinen aktuellen 
Daten zur Verfügung stehen 
soll. Wie schon aus vielen Arti¬ 
keln in der CPC hervorging, ist 
ein Umstieg auf ein anderes Sy¬ 
stem nicht gerade mit wenig 
Aufwand verbunden. So müssen 
zum Beispiel die gesamten Da¬ 
ten der Loco-Famile in das MS- 
DOS-Format konvertiert wer¬ 
den. Da mir eine Einarbeitung 
in ein neues System wie MS- 
Word zu umständlich erscheint, 
wollte ich auf ragen, ob es nicht 
eine Alternativlösung für mich 
gibt, bei der ich meinen PCW zu 
Hause weiter verwenden kann. 

Dieter Gärberle 
München 

Sicher gibt cs für jedes Problem 
eine Lösung. Wie bereits in vor¬ 
hergehenden Ausgaben der CPC 
angesprochen, gibt es auch für ei¬ 
nen PC - sprich einen Laptop — 
eine Version von LocoScript. 
Seit kurzem existiert ebenfalls 
eine neue LocoScript-Version 
(2.30) für den PCW. die den 
Datenaustausch zwischen PCW 
und PC wesentlich vereinfacht. 
So können Sie jetzt Texte, die auf 
einem PCW geschrieben sind, 
ohne Probleme auf dem PC wei¬ 
terverarbeiten. Das Besondere an 
der neuen PCW-Version ist. daß 
sie in der Lage ist, auch die Da¬ 
ten von der PC-Version einzule- 
scn. So können Sie ohne große 
Umstände die Daten von einem 
Rechner auf dem anderen weiter¬ 
verarbeiten. „ , 
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Verschiedenes 


Verbesserungen? 

Hiermit möchte ich Ihnen einige 
Verbesserungs vorschläge für die 
CPC-Intemational unterbreiten. 
Ich bin der Meinung, daß die 
Zeitschrift für CPC und Joyce in 
dieser Form nicht mehr lange 
existieren kann und darum das 
Konzept verändert werden sollte. 
Die Zeitschrift könnte zum Bei¬ 
spiel einen neuen Namen 
(Z80-International ?) erhalten 
und sich um alle Z80-Computer 
kümmern. Da es sehr viele 
Z80-Computer gibt (CPC/JOY- 
CE/Spektmm ,MSX,..) könnte sie 
eine größere Zahl von Anwen¬ 
dern ansprechen, was sich wie¬ 
derum auf die Anzahl der ver¬ 
kauften Zeitschriften auswirken 
müßte. 

Ein anderer Vorschlag wäre zum 
Beispiel, daß die Zeitschrift zum 
Beispiel den Namen 8-Bit-Inter- 
nation annimmt und somit noch 
mehr Anwender ansprechen 
kann. Dann kämen noch andere 
Computer dazu (C64, CI28. Ata¬ 
ri XL/XE,...) 

Vielleich wäre dies eine Möglich¬ 
keit die CPC International auch 
in Zukunft weiter erhallen zu 
können. 

Andreas Leicht 
Ritterhude 


Wie man siehl, machen sich un¬ 
sere Leser wirklich Gedanken 
um das, was die Zukunft bringen 
wird. 

Laut Leserumfrage wird es je¬ 
doch nicht gewünscht, schon 
wieder andere System fest in das 
Magazin zu integrieren. "Kaum 
sind die PC’s weg, kommen die 
Commodores“ könnte dann zum 
Beispiel ein Spruch unter den 
verärgerten Lesern sein. Sicher 
werden wir in nächster Zeit mehr 
in Sachen CP/M und CP/M-Pu- 
blic Domain tun, es wird sich je¬ 
doch im großen und ganzen im¬ 
mer um die mehr oder weniger 
verlachten Kindlein der Firma 
Amslrad gehen. 

Wie sie schon bemerkt haben, 
versuchen wir durch Kostensen¬ 
kungen wie die Wegname der 
vielen unnützen Farben, es mög¬ 
lich zu machen, die CPC auch in 
Zukunft noch anbieten zu kön¬ 
nen. Jetzt sind jedoch Sie gefragt. 
Stehen Sie mehr auf Informatio¬ 
nen oder wollen Sie lieber Kin¬ 
kerlitzchen? 

Red. 


Verschiedenes 


Meine Meinung 

Hier meine Bemerkungen zur Le¬ 
serumfrage , für die die paar vor¬ 
gesehenen Zeilen wirklich nicht 
genug waren. 

+ Ihre Bezugsquellen für Spiele¬ 
software sind ja die reinen Hals¬ 
abschneider. Preise von 59.90 
DM und mehr sind absolut lä¬ 
cherlich. Notfalls sollten Sie Ihre 
Leser um Testmuster bitten. Ich 
bin überzeugt das es genügend 
Mitwirkende geben wird. Natür¬ 
lich müssen die Muster wieder 
zurück geschickt werden. Ein 
Beitrag für die Portokosten wäre 
auch nicht schlecht. 

• Auch die Kleinanzeigen finde 
ich viel zu teuer. Sogar im ehe¬ 
maligen CPC Magazin/Compu¬ 
ter Partner kostete eine Zeile nur 
ein DM. Sämtliche andere Zeit¬ 
schriften snid viel billiger (ASM. 
5 Zeilen für 5DM) oder sogar 
Gratis (Power Play und Compu¬ 
ter Flohmarkt). Wenn ich mir vor 
allem die CF anschaue, dann 
sieht man sofort, daß die CPC- 
User eine Laberecke brauchen. 
Es gibt genug CPC User, die die 
CF schon allein wegen der Labe¬ 
recke regelmäßig kaufen. 

• Es gibt jetzt schon mindestens 
fünf Fanzines in Deutschland, für 
den CPC (Crackers Internatio¬ 
nal, Sub, Frame Fly, CPC Chal- 
lenge und CPC International). Es 
ist wohl klar das die Leser mit der 
CPC nicht zufrieden sind. Der 
größte Vorteil der Fanzines ist 
deren aktualität. Die CPC Chal- 
lenge hat zum Beispiel immer ak¬ 
tuelle Spiele Reviews. 

Uhren Schreibstil mag ich 
nicht. Die Spiele Reviews kom¬ 
men viel zu sachlich und trocken 
rüber. Ein lockerer Schreibstil 
wäre angenehmer. Auch sollte 
der belehrende Finger (“Zu ge¬ 
walttätig, würde ich meinem 
Sohn nicht zum spielen geben. “) 
weglassen 

Maurice Homan 
Arnheim 

Zu Punkt 1: 

Sicherlich ist dies eine sehr gute 
Idee, die jedoch daran scheitern 
könnte, daß wir mit Raubkopien 
nur so überhäuft werden. Da un¬ 
sere Leser ja auch an die Pro¬ 
gramme kommen müssen, die 
wir in unserer Zeitschrift vorstel¬ 
len, müssen wir jedoch auch in 
den sauren Apfel beißen und 


eventuell teure Spiele vorstellen. 
Trotzdem haben wir unsere Füh¬ 
ler in Richtung England und 
Frankreich ausgestreckt um auch 
von dort neue Software zu be¬ 
kommen. Vielleicht ist es sogar 
möglich, diese Programme über 
uns zu anständigen Preisen an 
den Leser zu verkaufen. Hier 
müssen jedoch erst Verhandlun¬ 
gen mit den entsprechenden Soft- 
wareherstellcrn gemacht werden. 
Übrigens, warum keine älteren 
Spiele vorstellen? Aueh in der 
Zeit von 1985-88 gab es viele in¬ 
teressante Programme, die neu 
hinzugekommene CPC-Besitzcr 
mit bestimmtheit nicht kennen. 

Zu Punkt 2: 

Leider handelt cs sich bei den Re¬ 
dakteuren der CPC International 
nur um Hirnies, die weder rech¬ 
nen. geschweige denn überhaupt 
einen Taschenrechner bedienen 
können. Von daher müssen wir 
leider die Aufgabe der Preisge¬ 
staltung anderen überlassen, die 
in der Volkshochschule eine 
Lehrgang in Sachen rechnen be¬ 
legt haben. Tut uns leid, aber wir 
können das nicht ändern. 

Zu Punkt 3: 

Leider, so ist das nunmal, gibt es 
hier so manche Spielregeln, die 
ein Redakteur beachten muß. So 
sollte er sich nicht mit Raubko¬ 
pien abgeben um dann eventuell 
ein vollkommen gecracktes und 
vielleicht sogar mit einigen Ex¬ 
tras (Cheats/ Crackervermerken) 
versehenes Programm zu testen, 
bei dem der ganze Test dann 
nicht stimmt. Wir sind also dar- 
uaf angewiesen, daß uns die Fir¬ 
men nach mehrmaliger Auffor¬ 
derung endlich Ihre Programme 
herschicken, und wir Sie endlich 
(original) testen können. 

Zu Punkt 4: 

Auch hier hat unsere Leserbefra¬ 
gung wieder so manch Interes¬ 
santes zum Vorschein gebracht. 
Entgegen deröffentlichen Mei¬ 
nung wird die CPC International 
nicht nur von jungen Freaks ge¬ 
lesen, sondern vielmehr auch von 
etwas betagteren Herren und Da¬ 
men, die sich löblicherweise 
auch mit einem Computer wie 
dem CPC beschäftigen wollen. 
Nun kann man es nicht jedem 
recht machen und ich meine daß 
der gewählte Schreibstil sicher¬ 
lich nicht so verkehrt ist. Sic und 
vielleicht die anderen, die so den¬ 
ken, werden sicherlich kein Pro¬ 
blem haben, mit diesem Stil auch 
weiterhin auszukommen. 

Red 


JOYCE 


Turbomodul Sprinter 

mit 256K RAM 498- DM 
mit 51 2K RAM 598,-DM 
mit 768K RAM 698,-DM 
mit 1024K RAM 798,-DM 

TEAC-Floppies 

inkl. 15 Monaten Garantie: 

3.5“ Zweitfloppy, 720 KB, 249,-DM 
5.25"Zweitfloppy, 720 KB, 329,- DM 
3.5“ Drinlloppy, 720 KB, 

Laufwerk A: oder B: 298,- DM 

5.25"DriHfloppy, 720 KB, 359,- DM 

Automatischer Einzelblatteinzug für 
PCW 8xxx inkl. Software 298,- DM 

DoppelIhohe Zeichen unter 
LocoScript 2.28 78,-DM 

MicroDesign II für PCW 198,- DM 
MicroDesign II für PC 228,- DM 

TWEAK-Grafikmanipulationssoftware 
für sämtliche DTP-Programme 80,- DM 

MicroDesign Clipart-Katalog 15,- DM 

Qualitäts-Farbband schwarz 13,- DM 
Farbbänder FARBIG, 
blau, grün, rot braun 21DM 

Pelikan-Malrifilm Farbband 25,-DM 

Maxell 3 “-Disketten, 10 Stück 65 - DM 
10 NoName 3.5"-Disketten 12,- DM 

Schneider PC-Zubehör auf Anfrage I! 

JOYCE-Platinenservice 

Bernhard Graßhoff 
Roesoll 36 
2305 Heikendorf 

Telefon, BTX 

04 31 / 24 55 83 

FAX 

04 31 / 24 37 70 


AMSTRAD - Computer 
Software + Zubehör 


AMSTRAD-Computer auf Anfrage 
Auszug aus unserem Lieferprogramm 

JOYCE-Zubehör: 


Farbband 8256/8512 (Nylon) 12,90 

dto. 5 Stück 59,90 

3“-Markendisketten 10 St. auf Anträge 
Farbband 9512 (Nylon) 18,95 

Typenräder 9512 + SD15 je 25,00 

Diskettenbox 1 60 Disk. 15.50 

Diskettenbox f. 100 Disk. 18,95 

Druckverlängerung 1,5 m 39,50 


weiteres Zubehör auf Anträge 
CP/M-DOS (auch (ürCPC) 
Transferprogramm PCW, PC. CPC 55,00 

PC-Zubehör 1512/1640: 


3.5" 720 KB ext. 398.00 

3.5" 1,44 KB ext. incl. Co-Controller 570,00 
3.5" 720 KB int. 220.00 

ext. Streamer 60/120 MB incl, 

Software 898,00 

AMSTRAD PC-Serle 2086/2286/2386 

5.25“ 360 KB ext. 298,00 

5.25* 1,2 MB ext. 348,00 

3.5* 1,44 MB ext. 368,00 

Diskettenbox f. 100 5 1/4"-Disk. 16,95 

51/4'-Reinigungsdiskette 6,95 

31/2“-Reinigungsdiskette 9,95 

Abdeckhaub© 2266/2386 69,00 


alle Lautwerke/Streamer anschluBfertig, 
geprüft, betriebsbereit 

Weitere Preise aut Anträge! 

Preisliste gegen Rückporto 
Lieferung nur gegen UPS-Nachnahme (DM 9,50) 
oder Vorkasse (DM 7,50) 

Ausland: Nur gegen Vorkasae-Euro-Vorrech- 
nungascheck (Versandkosten DM 15,00), 
Mindestauftragswort DM 50X10 zzgi. Versand¬ 
kosten; bei Aufträgen unter DM 50.00 müssen 
wir einen Mindermongonzuscltlag von DM 1500 
zum Aultragswert berechnen, 


COM-ZU-ELEKTRONIK 

Michael Kürbis 
MaudacherStr. 215 
D-6700 Ludwigshalen 
TEL.; 0621/55 9558 
FAX: 0621/55 9503 

Eper BTX-Nr.0621/559503-0001 P erE 
U u 
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Action, Simulationen und mehr... 
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Die neusten Spiele unter die Lupe 
genommen 


Die ersten Cartridge-Spiele sind eingetroffen. Aber keine Angst, genügend 
Unterhaltung für graue Herbsttage bekommen auch die Besitzer der “alten“ 
CPC-Geräte geboten. 



Da dieses Mal einige Spiele dabei sind, 
bei denen Blut fließt, scheint uns hier 
eine Anmerkung angebracht zu sein. 
Wenn in einem der getesteten Spiele 
viel getötet wird, ist dies für uns viel¬ 
leicht ein Grund für einen bissigen Sci- 
tenhieb. Die Gesamtbewertung des 
Spiels wird davon aber nicht beein¬ 
flußt, denn ob man sich dadurch den 
Spielspaß vermiesen läßt, hängt letzt¬ 
endlich vom einzelnen Käufer selbst ab. 
In Fl RE & FORGET II soll versucht 
werden, das Zusammenleben der Men¬ 
schen friedlich zu regeln. Und wieder 
einmal ist dies der Ausgangspunkt für 
ein Schießspiel der destruktivsten Sor¬ 
te, 

Eben als der dritte internationale Frie¬ 
denskongreß in Megapolis stattfindet, 
ist ein ganzer Konvoi gefährlicher Ter¬ 
roristen unterwegs, der die Stadt an¬ 
greifen will. Der Spieler ist mit einem 
modernen, schwerbewaffneten Fahr¬ 
zeug. das sich auch in ein Fluggerät 
verwandeln kann, ausgestattet. Er muß 
nun versuchen, den Konvoi niederzu¬ 
metzeln, pardon, auszuschalten. 


Schießen für den Frieden 

FIRE & FORGET II präsentiert sich als 
Roadblasters-Variante. Es ist ein Auto¬ 
fahrspiel mit der zusätzlichen Möglich¬ 
keit. die Gegner abzuschießen. Sozusa¬ 
gen als Bonus ist die Flugfähigkeit vor¬ 
handen. Feinde gibt es in allen Farben 
und Formen. Doch nicht nur das, der 
geplagte Spieler muß unterwegs auch 
noch Treibstoff aufnehmen. Kerosin 
und Benzin haben getrennte Tanks, so 
daß gelegentlich anhand des Treibstoff¬ 
vorrats entschieden werden muß. wel¬ 
che Fortbewegungsart zu wählen ist. 
Am Ende der Abschnitte begegnet man 
recht robusten Gegnern, für die mög¬ 
lichst einige Raketen reserviert werden 
sollten. Ebenso tödlich sind die regel¬ 


mäßig auftauchenden Minen. Um die¬ 
sen auszuweichen, muß man extrem 
schnell reagieren - oder ein gutes Ge¬ 
dächtnis haben und sich merken, wann 
diese kommen. Eine hilfreiche Eigen¬ 
schaft des Fahrzeugs ist, daß es nicht 
aus der Kurve fallen kann. So muß we¬ 
nigstens nicht noch darauf geachtet 
werden. 

Als eins der ersten Cartridge-Spiele in¬ 
teressiert es natürlich, wie gut die 
Möglichkeiten der neuen Hardware ge¬ 
nutzt wurden. Eine Melodie ist vorhan¬ 
den, aber berauschend ist diese wirk¬ 
lich nicht. Ansonsten ist das Spiel sehr 
bunt: daß das aber nur mit der vergrö¬ 
ßerten Farbpalette möglich ist, wird an 
der Farbabstufung des Hintergrunds 
deutlich. Auffällig ist die hohe Ge¬ 
schwindigkeit. Die Vermutung liegt 
nahe, daß dies durch eine Entlastung 
des Prozessors bei einigen grafischen 
Operationen erreicht wurde. 

Gut gemacht! 

“Bereite Dich auf das erstaunlichste 
Arcade-Game vor, das Du jemals auf 
einem Heimcomputer gesehen hast!“ 
steht auf der Verpackung geschrieben. 
Das ist sicherlich maßlos übertrieben. 
Ähnliche Spiele gibt es zu Dutzenden. 
Dennoch, die technische Leistung, ver¬ 
bunden mit einer angemessenen Spiel- 
barkeit, rechtfertigt es, das Spiel zu 
empfehlen. 


FIRE & FORGET II 

Hersteller: Titus 
Steuerung: Joypad 

Voraussetzungen: GX 4ÜÜ0. 464 Plus oder 6128 Plus 
Preis: 99.95 DM 
Bezugsquelle: Fritz Obermeier 

Bewertung: 

Grafik: 2 Sound: 3 

Präsentation: 3 Motivation: 2 

Endnote: 3 
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Iiild 2: WILD STREETS — langweilige Schlägereien in New York 


Schon heute scheint New York von Kri¬ 
minellen regiert. Entsprechend schlim¬ 
mer ist es im Jahr 1998, in welches Sie 
das Spiel WILD STREETS führt. Ei¬ 
nes Tages wird sogar der Chef des 
C.I.A. von Verbrechern entführt, weil 
er in der Stadt wieder Ordnung schaf¬ 
fen wollte. Jetzt muß der obligatorische 
Retter - natürlich der Spieler - her 
und den Polizeichef befreien. 

Kampf mit der Unterwelt 

Nur mit einem Revolver bewaffnet und 
von einem schwarzen Panlher begleitet, 
zieht der Spieler los. Eigene Kampf¬ 
sporttechniken helfen zum Glück wei¬ 
ter, wenn man Munition sparen muß. 
Eine Gangsterbande nach der anderen 
wartet darauf, niedergeschlagen oder 
erschossen zu werden. Die Angriffs¬ 
techniken unterscheiden sich dabei nur 
wenig, und es ist eigentlich kein größe¬ 
res Problem, durch die Stadt zu laufen 
und hier und da einige Verbrecher zu 
beseitigen. Etwas zäher sind die Ban¬ 
denführer, doch dafür hat man ja einen 
Revolver dabei. 

Die Hintergrundgrafik ist nichts beson¬ 
deres. Die Animation der Figuren ist 
dürftig. Statt zu scrollen werden die 
Bilder nur umgeschaltet. Die Musik ist 
langweilig. Das Spiel selbst ist viel zu 
leicht. Technik ist keine erforderlich, 
ein wenig Reaktionsvermögen reicht 
aus. Mit der Zeit fragt man sich, wozu 
so viele verschiedene Schlagarten zur 
Verfügung stehen, wenn eine einzige 
ausreicht. 

Auf den CPCs erschienen in den ver¬ 
gangenen Monaten und Jahren viele 
ähnlich geartete Spiele, die jedoch 
meist besser waren. Schon daher er¬ 
scheint WILD STREETS als reichlich 
überflüssige Veröffentlichung. Außer¬ 


dem fragt man sich, warum eigentlich 
die verbesserten Hardware-Eigenschaf¬ 
ten nicht ausgenutzt wurden, die bei 
Cartridge-Spielen zur Verfügung ste¬ 
hen. Ein weiches Scrolling, schöne de¬ 
taillierte Sprites und eine fetzigere Mu¬ 
sik hätten zwar nicht viel, aber wenig¬ 
stens etwas retten können. 

In der vorliegenden Form kann man 
von WILD STREETS nur abraten. Der 
Verkauf zu diesem Preis ist schon fast 
eine Unverschämtheit. 


WILD STREETS 

Hersteller: Titus 
Steuerung: Joypad 

Voraussetzungen: GX 4000.464 Plus oder 6128 Plus 
Preis: 99,95 DM 
Bezugsquelle: Fritz Obermeier 

Bewertung: 

Grafik: 3 Sound: 4 

Präsentation: 3 Motivation: 4 

Endnote: 4 


ROBOCOP war eines der erfolgreich¬ 
sten Computerspiele aller Zeiten. Wie 
zu erwarten, gibt es also zu dem zwei¬ 
ten Film auch das zweite Computer¬ 
spiel - ROBOCOP II. Die Rahmen¬ 
handlung wird als vom Film her be¬ 
kannt vorausgesetzt. Robocops größter 
Feind ist sein zweites Ich. Auf dem Weg 
zu ihm gilt es, Nuke-Labors und Nuke- 
Lager ausfindig zu machen. Wenn man 
die Story nicht so genau kennt, tut das 
dem Spielspaß jedoch keinen Abbruch. 

Murphy ist wieder da! 

Durch sieben Levels voller Gefahren 
muß sich Robocop kämpfen. Abschnitt 
1, 4 und 7 sind Plattformspiele, bei de¬ 
nen auch geschossen werden darf. Her¬ 
unterfallende Zacken, Laserblitze, Lö¬ 
cher im Boden, rollende Fässer und an¬ 
dere Hindernisse machen einem das 


Leben schwer. Der dritte und der sech¬ 
ste Teil sind an OPERATION WOLF 
angelehnt: Im Schießstand der Polizei 
muß Robocop seine Treffsicherheit 
üben, indem er Verbrecher abschicßt 
und Zivilisten verschont. Knobeln muß 
man schließlich im zweiten und im 
sechsten Level. Im Kampf gegen die 
Zeit müssen Platinen so verschoben 
werden, daß sie vollständige Bilder er¬ 
geben. 

Für Abwechslung ist also gesorgt, auch 
wenn alle Abschnitte Varianten bereits 
bekannter Spiele sind. Obwohl mit ei¬ 
ner Continue-Option ausgestattet, ist 
das Spiel sehr schwer. Ärgerlich ist vor 
allem, daß man so weit zurückgeworfen 
wird, wenn man ein Leben verliert. So 
werden selbst die geübtesten Spieler 
mehrere Stunden brauchen, um so weit 
vorzudringen, daß sie nach Verlust ei¬ 
nes Lebens nicht mehr ganz von vorne 
beginnen müssen. 

Wen das nicht stört: Technisch ist RO¬ 
BOCOP II umwerfend. Die erweiterte 
Farbpalette wird hervorragend einge¬ 
setzt. Das Scrolling ist butterweich, die 
Musikstücke sind stimmungsvoll. Aber 
auch die Sprite-Bewegungen sind llüs- 
sig wie bei keinem CPC-Spiel zuvor. 
Man ist leicht versucht, zu glauben, 
daß irgendwo ein 16-Bit-Computer ver¬ 
steckt ist. Bleibt festzustellen: Wer se¬ 
hen will, was 8-Bitter leisten können und 
eine bleibende Herausforderung sucht, 
braucht ROBOCOP II. Wer leicht beim 
Spielen frustriert wird, sollte lieber die 
Finger davon lassen. Normalerweise 
denken sich die Programmierer zu jedem 
Spiel eine Rahmenhandlung aus - und 
wenn sie noch so sehr an den Haaren her¬ 
beigezogen ist. Bei KLAX hat man sich 
diese Mühe nicht gemacht. Das ist aber 
auch gar nicht nötig. Ganz direkt geht es 
zur Sache. 
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ROBOCOP II 

Hersteller: Ocean 
Steuerung: Joypad 

Voraussetzungen: GX 4000, 464 Plus. 6128 Plus 
Preis: 99,95 DM 
Bezugsquelle: Fritz Obermeier 
Bewertung: 

Grafik: I Sound: I 

Präsentation: 2 Motivation: 2 

Endlinie: 2 


Ständig rollen farbige Blöcke auf den 
Spieler zu, der diese mit einem Schlä¬ 
ger aufsammeln, nach links oder rechts 
verschieben und abwerfen kann. Bis zu 
fünf Teile können auf diese Weise ge¬ 
halten werden. Wenn dem Spieler zu 
viele Blöcke entgehen, endet das Spiel. 
Dasselbe geschieht auch, wenn das 
Fassungsvermögen des unteren Bild¬ 
schirmteils erschöpft ist. 

VerKLAXt nochmal 

Ein Klax sind drei gleichfarbige Teil¬ 
chen in einer Reihe. Horizontale Klaxe 
zählen mehr als senkrechte, aber weni¬ 
ger als diagonale. Was man tun muß, 
um in den nächsten Level zu gelangen, 
wird zu Beginn jeder Runde angege¬ 
ben. Hier kann eine bestimmte Anzahl 
von Klaxe /1 erforderlich sein, eine be¬ 
stimmte Punktzahl benötigt werden 
oder das Programm schreibt vor, wel¬ 
cher Art die Klaxe sein müssen. 
Manchmal helfen Doppel- oder Drei- 
(uch-Klaxe, also vier beziehungsweise 
fünf Steine in einer Reihe, die Aufgabe 
zu bewältigen. Ab und zu gelangt man 
in einen Warp-Screen, von dem aus 
man einige Levels überspringen kann. 
Wenn es in bestimmten Levels gelingt, 
ein großes X zu bauen - was gar nicht 
so einfach ist! - gelangt man fast fünf¬ 
zig Levels weiter. Ebenfalls nützlich 
sind die Joker-Blöcke, die jede beliebi¬ 
ge Farbe annehmen können. 

Natürlich wird das Spiel immer 
schwieriger. Das äußert sieh darin, daß 
noch mehr verschiedene Farben auftau¬ 
chen. die Blöcke schneller aufeinander- 
folgcn und die Aufgabenstellungen 
schwerer werden. 

Diskette hui, Cartridge pfui? 

Was sich hier ziemlich konfus anhört, 
ist beim Spielen innerhalb von Sekun¬ 
den gelernt. Und schon nach wenigen 
Minuten Spielzeit wird man Mühe ha¬ 
ben, wieder vom Programm loszukom¬ 
men. Dieses einfache Spielprinzip setzt 
sich irgendwo im Kopf fest und läßt ei¬ 
nen nicht mehr los. Ein plötzlicher Feh¬ 
ler löst Panik aus: Man versucht zu ret¬ 
ten. was noch zu retten ist — und macht 


die ganze Sache meist noch viel 
schlimmer. 

Was den Spielwitz angeht, läßt sich 
KLAX noch am ehesten mit TETRIS 
oder PIPE MANIA vergleichen. Es ist 
sogar noch besser, weil abwechslungs¬ 
reicher als diese beiden Hits. Somit 
kann man jedem CPC-Besitzer nur ra¬ 
ten, sich KLAX so schnell wie möglich 
zuzulegen. 

Jetzt kommt noch eine kleine Ein¬ 
schränkung. Die getestete Cartridge- 
Fassung ist mit der Diskettenversion 
auf den Pixel genau identisch. Auch an 
Spielablauf und Sound hat sich nicht 
das geringste geändert. Also: KLAX ist 
ein wunderbares Spiel, aber der Kauf 
der Diskettenversion genügt völlig. 


KLAX 

Hersteller: Domark 
Steuerung; Joypad 

Voraussetzung: GX 4000, 464 Plus oder 6128 Plus 
Preis: 99,95 DM 
Bezugsquelle: Fritz Obermeier 
Bemerkungen: Für die CPCs gibt es eine vollkommen 
identische Diskettenversion, die mit Joystick oder Ta¬ 
statur gespielt werden kann. 

Bewertung: 

Grafik: 3 Sound: 4 

Präsentation: 2 Motivation: I 

Endnote: 2/1 (Cartridgc/Disk) 


Klettern Sie gerne in den Bergen her¬ 
um, je höher, desto besser? Fühlen Sie 
sieh nur mit dem Rucksack auf dem 
Rücken so richtig wohl? Dann ist CHA- 
MONIX CHALLENGE das Richtige 
für Sie! 

Der Berg ruft! 

Nachdem bereits alles Naheliegende si¬ 
muliert wurde, scheint es nur folgerich¬ 
tig. zu ausgefalleneren Themen zu grei¬ 
fen. CHAMONIX CHALLENGE. das 
mit Beratung des in Frankreich recht 
bekannten Bergsteigers Eric Escoffier 


entwickelt wurde, entführt Sie in die 
Bergwelt. Das Ganze beginnt wie in 
Wirklichkeit, mit dem Auswahlen der 
Route und dem Packen des Rucksacks. 
Der Computer liefert einen Vorschlag, 
von dem jedoch auch abgewichen wer¬ 
den kann. Von der Schokolade und 
Feldflasche bis zum Iglu-Zelt ist alles 
Nötige vorhanden. Auch Unnötiges wie 
beispielsweise einen Walkman kann 
man einpacken. 

Je nach Streckenabschnitt kann unser 
kleiner, dynamischer Bergsteiger wan¬ 
dern oder muß klettern. Je nachdem, ob 
der Grund vereist oder lelsig ist. 
braucht er verschiedene Techniken. 
Dabei wechselt auch das vom Compu¬ 
ter gelieferte Panorama. Wenn man den 
glatten Fels hochklettert, muß jede 
Hand und jeder Fuß einzeln gesetzt 
werden. Um die Gefahr des Abrut¬ 
schens zu verringern, ist das Tragen des 
richtigen Schuhwerks erforderlich. 
Auch das Absichern mit Seil und Ha¬ 
ken kann unangenehmen Überraschun¬ 
gen Vorbeugen. 

Was das Spiel auszeichnet, ist seine Liebe 
zum Detail. Von einer Gletscherbrille, in 
der sich die Landschaft spiegelt, bis zu 
Schluchten, über denen plötzlich der 
Schnee wegbricht, ist alles vorhanden. 
Die Umsetzung läßt ebenfalls kaum 
Wünsche offen. Landschaft und Figuren 
sind schön und bunt gezeichnet, anfangs 
erklingt eine Melodie und während des 
Spiels hört man ab und zu sogar den 
Wind pfeifen. Der Spielstand kann natür¬ 
lich auch abgespeichert werden, und alle 
Funktionen können mit einem Pointer an- 
gewählt werden, dessen Abfrage jedoch 
recht ungenau ist. 

Für Freunde des Besonderen 

An der Ausführung gibt es nichts auszu¬ 
setzen. sogar eine deutsche Anleitung ist 


Bild 3: ROBOCOP II 
technische Glanz- 
leistunfi 
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vorhanden. Auch wenn es sich dabei nur 
um ein paar kopierte Zettelchen handelt, 
ist sie doch recht sinnvoll aufgebaut. 
Wer jetzt meint, daß ihn die Spielidee 
reizen könnte, wird mit CHAMONIX 
CHALLENGE seinen Spaß haben. 
Aber viele mögen bereits die Aufgaben¬ 
stellung als langweilig empfinden. 


CHAMONIX CHALLENGE 

Hersteller: Infogrames 
Steuerung: Joystick oder Tastatur 
Voraussetzungen: für alle C'PCs 
Preis: 61.40 DM 
Bezugsquelle: Frilz Obcrmeicr 

Bewertung: 

Grafik: 2 Sound: 2 

Präsentation: 2 Motivation: 3 

Endnote: 3 


Leichter bewaffnet als Zerstörer, aber 
auch kleiner und wendiger, eignen sich 
die PBR-Boote besonders für den Ein¬ 
satz in verzweigten Fluß- und Kanalsy- 
stemen. Vietnam, Panama und Kolum¬ 
bien sind Einsatzorte, also finden auch 
die bei GUNBOAT enthaltenen Mis¬ 
sionen dort statt. 

Einmal in Mittelamerika 
aufräumen ... 

Ausführlich, teilweise mit einem sarka¬ 
stischen Unterton, beschreibt das engli¬ 
sche Handbuch alle Funktionen des 
Spiels sowie die verschiedenen Feinde. 
Die einzelnen Missionen werden wäh¬ 
rend des Spiels vom Programm erläu¬ 
tert. Die Aufgabenstellung des aktuel¬ 
len Einsatzes kann auch während des 
Spiels jederzeit abgerufen werden. Als 
Spieler hat man die Möglichkeit, sich 
in den Kapitänssessel zu setzen, kann 
aber auch zwischendurch die bewaffne¬ 
ten Außenpositionen übernehmen und 
dem Kapitän Anweisungen zurufen. 


Sehr schnell werden einem andere 
Schiffe lind Stellungen begegnen. Doch 
bevor man nicht nachgeprüft hat, um 
was es sich dabei handelt, sollte man 
nicht schießen: Das Versenken eines 
befreundeten Schiffs ist die beste Mög¬ 
lichkeit, nicht befördert zu werden. 

Je nach Leistung wird dem Spieler ein 
höherer Rang zuerkannt, was eine Vor¬ 
aussetzung zum Zugang zu weiteren 
Operationen ist. Die Personalakte wird 
übrigens automatisch abgespeichert. 
Die vom Handbuch gesetzte Atmosphä¬ 
re wird durch die tristen Farben des 
Spiels noch betont, und das Auf- und 
Abschlingern des Bootes erweckt den 
Eindruck, tatsächlich auf See zu sein. 
Der Spielablauf ist normalerweise aus¬ 
reichend schnell. Wenn sich gerade gar 
nichts tut, kann zusätzlich noch ein 
Zeitraffer eingeschaltet werden. 

Von der Konzeption her ist GUNBOAT 
ein Simulator. Er ist jedoch so weit ver¬ 
einfacht, daß man mit den Funktionen 
schnell vertraut ist. So liegt nach einer 
Eingewöhnungszeit - die durch den 
Trainingsmodus erleichtert wird - der 
Schwerpunkt auf Action. Die unter¬ 
schiedlichen Einsätze sorgen für 
längcranhaltende Motivation, hätten 
aber noch etwas unterschiedlicher aus- 
fallen dürfen. Insgesamt ein Pro¬ 
gramm, an dem wenig auszusetzen ist. 
Besonders für Neulinge auf dem Gebiet 
der Simulationen empfehlenswert, aber 
sicher auch für alte Hasen interessant. 


GUNBOAT 

Hersteller: Accolade 

Steuerung: Tastatur oder Joystick und Tastatur 

Voraussetzungen: 128 KByte 

Preis: 69.95 DM 

Bezugsquelle: Frilz Obermeier 

Bewertung: 

Grafik: 2 Sound: 4 

Präsentation: 2 Motivation: 2 

Endnote: 2 


In der Zeit des zweiten Weltkriegs 
spielt CRETE 1941 FALLSCHIRM¬ 
JÄGER. Nach der Besetzung Grie¬ 
chenlands durch Italien im Jahre 1940 
war es nur eine Frage der Zeit, bis Ita¬ 
liener oder Deutsche versuchen wür¬ 
den, auch Kreta zu erobern. Strategi¬ 
sche Bedeutung hatte die Insel vor al¬ 
lem als Bomberstützpunkt, und so be¬ 
gann im Mai 1941 ein großangelegter 
Angriff der Deutschen. 

Mit einem Rechtschreib¬ 
fehler fängt es an ... 

Da die Deutschen keinen Stützpunkt 
auf der Insel hatten, setzten sie ihre 
Hoffnung auf ihre Fallschirmjäger. 
Diese - im ganzen Spiel als “Fall¬ 
schirmjäger“ bezeichnet — gaben dem 
Spiel dann auch seinen Untertitel. 

Der Spieler hat die Wahl, entweder die 
alliierte oder die deutsche Seite zu 
übernehmen. Auf Wunsch können auch 
zwei Personen gegeneinander spielen. 
Die Ausgangspositionen sind recht ver¬ 
schieden. Die Alliierten halten die Insel 
mit ihren Städten, Häfen und Flughäfen 
besetzt. Doch die Deutschen sind im 
Besitz von Flugzeugen, mit denen sie 
Bodenstellungen angreifen und Fall¬ 
schi rmtruppen absetzen können. Das 
Spiel ist aufgeteilt in mehrere Tage. Ge¬ 
nauer gesagt, findet es zwischen dem 
20. und 27. Mai statt. Danach wird das 
Ergebnis angezeigt. Es kann aber noch 
weitergespielt werden. Punkte gibt es 
für zerstörte gegnerische Truppen und 
besetzte Flughäfen. Die Alliierten kön¬ 
nen auch durch das Evakuieren ihrer 
Truppen Punkte erzielen. 

Jeder Tag besteht aus Morgen. Mittag, 
Abend und Nacht. Nachts können kei¬ 
ne Flugzeuge fliegen und die Sicht ist 
schlechter. Diese Zeiten sind wiederum 
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Bild 4: KLAX — von diesem Spiel kommt matt nicht mehr los 


Bild5: CHAMONIX CHALLENGE — lassen Sie sich in die Bergwett entführen 
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in Phasen aufgeteilt, nämlich Deut¬ 
scher Luftangriff, Befehle geben, An¬ 
kunft neuer Truppen, Artilleriegefech¬ 
te, Ausführen der Befehle und Kämpfe. 
Es gibt natürlich verschiedene 
Truppen- und Geländetypen. Der 
Computer berechnet auch eine Sichtli¬ 
nie, so daß Gegner nur gesehen wer¬ 
den, wenn sie sich in der Nähe eigener 
Verbände befinden. In Kämpfen spielt 
neben der Anzahl der Einheiten auch 
deren taktisches Geschick, ihre Moral 
und der Zusammenhalt der Truppe eine 
Rolle. All dies kann bei den eigenen 
Verbänden vom Computer angezeigt 
werden. 

Die Darstellung des Spiels und die Aus¬ 
führung der Programmierung entspre¬ 
chen dem Standard für Strategie- 
Kriegsspiele, nutzen aber die Fähigkei¬ 
ten des Computers nicht besonders aus. 
Vor allem hätte ein etwas schnelleres 
Scrolling den Spielablauf flüssiger ge¬ 
macht. Auch sonst hätte an der Benut¬ 
zerfreundlichkeit noch etwas getüftelt 
werden dürfen. Die englische Anlei¬ 
tung ist guter Durchschnitt. 

... dann kommt ein gutes 
Strategiespiel zum Vor¬ 
schein 

Sehr viele Faktoren bestimmen den 
Verlauf des Spiels. Einige davon kön¬ 
nen zu Beginn eingestellt werden. Vor 
allem für zwei Spieler sind mehr als ge¬ 
nug taktische Varianten und somit Ab¬ 
wechslung gegeben. 

CRETE 1941 besticht dadurch, daß 
sich das Spiel grundlegend ändert, je 
nachdem, ob man die deutsche oder die 
alliierte Seile vertritt. 

Zeit sollte man jedoch schon haben: 
Ein Spiel dauert mehrere Stunden. Der 


Spielstand kann jedoch abgespeichert 
werden. 


CRETE 1941 FALLSCHIRM¬ 
JÄGER 

Hersteller: CCS 

Steuerung: Tastatur oder Joystick und Tastatur 
Voraussetzungen: für alle CPCs 
Preis: 74.90 DM 
Bezugsquelle: Fritz Obermeier 
Bewertung: 

Grafik: 4 Sound: 4 

Präsentation: 3 Motivation: 2 

Endnote: 3 


Der Geruch von Öl vermischt sich mit 
Abgasen. Die Sonne brennt gnadenlos 
vom Himmel. Hektisches Treiben hier 
und da. Und auf ein Signal hin das Auf¬ 
heulen der Motoren. Das ist die Renn¬ 
atmosphäre, die LOTUS ESPRIT 
TURBO CHALLENGE vermitteln 
will. 

Die bekanntesten Rennstrecken der 
Welt warten auf die besten Fahrer. Nur 
wer einen der vorderen Plätze belegt, 
darf am nächsten Rennen teilnehmen. 

An die Boxen ... 

Neu ist die Spielidee, die uns GREM- 
LIN hier beschert, nun wirklich nicht. 
Trotzdem ist die Anleitung ausführlich 
und mehrsprachig, auch deutsch. Sie 
informiert den Spieler über die wichtig¬ 
sten Funktionen des Programms und 
zeigt — was vielleicht noch wichtiger 
ist — einen Überblick über die Renn¬ 
strecken. 

Der Spielablauf ist im großen und gan¬ 
zen wie gewohnt. Man sieht die Strecke 
dreidimensional dargestellt auf einen 
zurasen. Das eigene Auto ist von hinten 
zu sehen. Die Strecken sind voller Kur¬ 
ven, die vor allem dann tückisch wer¬ 
den. wenn sie nach einer Kuppe erst im 


letzten Moment zum Vorschein kom¬ 
men. Auch versuchen die Mitbewerber, 
durch geschicktes Ausbremsen zu ver¬ 
hindern, daß sie überholt werden. 

Um das Spiel aus der Masse ähnlicher 
Programme herauszuheben, haben sich 
die Autoren einige Besonderheiten cin- 
fallen lassen. Neu ist vor allem die 
Möglichkeit, daß zwei Spieler gleich¬ 
zeitig antreten. Dazu wird der Bild¬ 
schirm in der Mitte geteilt, und jeder 
hat seine eigene Hälfte. Außerdem ver¬ 
brauchen die Wagen natürlich Sprit, 
und so machen längere Strecken hin 
und wieder Stops an den Boxen zum 
Auftanken erforderlich. Um weiterzu¬ 
kommen, braucht kein Zeitlimit einge¬ 
halten zu werden. Die Position, an der 
man im Ziel einfahrt, ist entscheidend. 
Dies sorgt oft für einen besonderen 
Nervenkitzel, wenn man auf der letzten 
Runde weiß, daß noch genau zwei Fah¬ 
rer überholt werden müssen. 

Das Anfangsmenü bietet zahlreiche 
Optionen. So lassen sich neben 
Schwierigkeitsgrad und Art der Steue¬ 
rung sogar verschiedene Musikstücke 
auswählen. Nach jedem Rennen zeigen 
Tabellen den Ausgang des gerade gefah¬ 
renen Rennens sowie die aktuelle Ge¬ 
samtrangliste an. 

Alles, was ein Rennspiel 
braucht 

Die Sound-Effekte während des Spiels 
beschränken sich auf Motorengeräu¬ 
sche und das Quietschen der Reifen. 
Die drei zur Auswahl stehenden Melo¬ 
dien sind recht flott. Leider brechen sie 
automatisch ab. wenn das Rennen be¬ 
ginnt. 

Auch bei zwei Spielern ist kaum eine 
Abnahme der Spielgeschwindigkeit 



Bild 6: GUN BOA T — kriegerische Missionen in Vietnam, Panama und Ko¬ 
lumbien 



Bild 7: CRETE 1941 FALLSCHIRMJÄGER - der Kampf um die Insei ist voll 
im Gange 


10/IT 91 CPC 97 























































Software-Review 



Bild X: LOTUS ESPRIT TURBO CHALLES (iE Antonwispiele sunt wie¬ 
der in Mode 



Bild 9: E-I6 COMBA T PILOI - so realistisch sollten olle Tlttgsinuiluioren 
sein 


festzustellcn. Lediglich die Markierun¬ 
gen am Fahrbahnrand werden nicht 
mehr ganz so flüssig vergrößert und 
verschwimmen etwas. Auch sonst gibt 
es an der Grafik wenig auszusetzen. 
Schade ist nur, daß das eigene Auto 
nicht rot. sondern Trabi-blau ist. 
LOTUS ESPRIT TURBO CHALLENGE 
hat alles, was ein Rennspiel braucht. Es 
ist schnell, hat eine gute Grafik, guten 
Sound und vor allem: Es spielt sich ein¬ 
wandfrei . 


LOTUS ESPRIT TURBO 
CHALLENGE 

Hersteller: Gremlin 

Steuerung: Joystick oder Tastatur 

Voraussetzung: Diskette benötig« 128 kByte 

Preis: 69.95 DM 

Bezugsquelle: Fritz Obernicicr 

Bemerkung: Kassettenversion auch für 64 kByte 

Bewertung: 

Grafik: 2 Sound:2 

Präsentation: 2 Motivation: 2 

Endnote: 2 


“This time it’s for real“ Dieses Mal 
ist es Wirklichkeit. Mit solch starken 
Worten wird auf der Verpackung für 
F-16 COMBAT PILOT geworben. 
Nun. Flugsimulationen gibt es viele, 
und alle behaupten, die realitätsgetreu- 
ste zu sein. Und wenn man liest, wie 
viele Funktionen auf den 8-Bit-Rech- 
nern weggelassen wurden, fragt man 
sich, ob überhaupt abgehoben werden 
kann oder gar eine Bewegung auf der 
Rollbahn möglich ist. 

Wie der Name schon sagt, ist das simu¬ 
lierte Flugzeug eine F-16. Es ist ein 
leichtes, schnelles Flugzeug, dafür 
konstruiert, nahe an den Gegner heran¬ 
zukommen und das Ziel exakt zu zer¬ 
stören . 


Nach der Lektüre des über lOOseitigen. 
reich bebilderten englischen Hand- 
buchs und dem Vergleich mit den Ein¬ 
schränkungen stellt sich heraus, daß es 
immer noch eine Menge Funktionen 
gibt. Zu viele, um sich gleich alle mer¬ 
ken zu können. Deshalb kann man 
auch, bevor cs hart auf hart kommt, 
Trainingsll üge absolvieren. 

Operation Tankbuster läuft 

Fühlt man sich fit genug, kann richtig 
losgelegt werden. Sechs verschiedene 
Missionen - alle mit unterschiedlichen 
Schwerpunkten - stehen zur Verfü¬ 
gung. Die sechste läßt sich nur auswäh¬ 
len, wenn man alle anderen erfolgreich 
abgeschlossen hat, also dem Trainee¬ 
status entronnen ist. 

Auf einer Karle können Punkte mar¬ 
kiert werden, um sich die Koordinaten 
während des Flugs anzeigen zu lassen. 
Bei der Bewaffnung hat man freie Aus¬ 
wahl, die Mannschaft schlägt jedoch 
auf Wunsch auch eine für den jeweili¬ 
gen Einsatz geeignete vor. 

Alles klar? 

Angekommen auf der Startbahn, sieht 
man eine Vektorgrafiklandschaft vor 
sich. Was ansonsten noch auffallt, ist 
das reichhaltig mit Instrumenten ausge¬ 
stattete Cockpit. Hier kann zwischen 
verschiedenen Anzeigen gewählt wer¬ 
den, und sogar ein Head-Up-Display ist 
vorhanden, das die wichtigsten Daten 
— wie bei echten Jets — auf die Glas¬ 
scheibe projiziert. 

Trotz der ungeheuer vielen Funktionen 
ist das Flugzeug relativ leicht in den 
Grundzügen zu beherrschen, und mit 


der Zeit spielen sich auch die weiteren 
Funktionen nach und nach ins Spielge¬ 
schehen mit ein. Über die politischen 
Hintergründe der Missionen erfährt 
man aus dem Handbuch nichts — au¬ 
ßer, daß es sich bei den gegnerischen 
Maschinen um sowjetische MiGs han¬ 
delt. Die einen werden das als Ge¬ 
schmacklosigkeit am Rande abtun, an¬ 
dere werden es als nötig für die Reali- 
tätsnähe der Szenarios ansehen. 

Komplexe Simulation 

Tatsächlich hat F-16 COMBAT PILOT 
mehr realistische Funktionen als jede 
andere Flugsimulation auf dem CPC. 
Flüssiges Spiel, schnelle Grafik, ver¬ 
schiedene Missionen und Kompatibili¬ 
tät für 64 kByte — was will man mehr? 


F-16 COMBAT PILOT 

Hersteller: Digital Integration 
Steuerung: Tastatur oder Joystick und Tastatur 
Voraussetzungen: für alle CPCs 
Preis: 79.50 DM 
Bezugsquelle: Fl itz Obermeier 

Bewertung: 

Grafik: 2 Sound: 4 

Präsentation: I Motivation: 2 

Endnote: 2 


Andreas Lober/jg 


Info 

Bezugsquellen: 
EDV-Obermeier 
Bündcr Straße 20 
4972 Löhne 
Tel.: 05732/6126 
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Hallo, liebe Freaks und Betriebssystem-Fummler! 
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Im Herzen des JOYCE 


Teil 3: Vorgetäuschte Hardware 

Im heutigen Teil unseres Streifzugs durch die “Tiefen“ des JOYCE-BIOS 
geht es um ein Programmsegment, das die Kommunikation des CP/M- 
Betriebssystems mit dem Bildschirm ermöglicht. Die Hauptaufgabe dieses 
Teils des BIOS besteht darin, dem Anwenderprogramm vorzutäuschen, es 
kommuniziere mit einem Zenith Z19/Z29-Terminal, daher auch der Name 
TERMINALrEMULATOR (TE). 


Bei der Emulation des Z19/Z29-Termi- 
nals kommt es hauptsächlich darauf an, 
daß die Steuersequenzen (ESCape-Se- 
quenz.cn) für den Bildschirm einem 
Standard angepaßt werden, der es er¬ 
laubt. Anwenderprogramme, die nichts 
von der Hardware des JOYCE wissen, 
auch auf diesem Rechner zu installie¬ 
ren. Dabei ist die Emulation (= Nach¬ 
bildung) keine hundertprozentige, 
ermöglicht aber dem Anwender die 
Auswahl diverser Bidschirmtypen für 
die Installation seiner Programme. 

Für die direkten Aufrufe der System¬ 
routinen ist die Emulator-Funktion 
jedoch nur insoweit interessant, als da¬ 
durch dem Programmierer die Mög¬ 
lichkeit gegeben wird, mit dem Bild¬ 
schirmtreiber in Verbindung zu treten. 
Zuvor jedoch noch einmal die Bedin¬ 
gungen, unter denen die im folgenden 
erläuterten Systemeinsprünge vom An¬ 
wender benutzt werden können: 


1. Alle hier aufgeführten Einsprung¬ 
adressen beziehen sich auf die 
CP/M-Plus-Version 1.4 (System-File 
J14GCPM3.EMS). 

2. Da sich die hier beschriebenen Sy¬ 
stemroutinen in der Systembank (Spei¬ 
cherbank #0) befinden, muß vor dem 
Aufruf die Speicherbank umgeschaltet 
werden. Dies geschieht am einfachsten 
über die BIOS-Funktion #30 mit 

CALL 0FC5A 
DE FW ROUTINE 

wobei ROUTINE die Adresse der ge¬ 
wünschten Systemroutine ist. 

3. Die Bezeichnungen für die hier auf¬ 
geführten Programmeinsprünge wur¬ 
den mangels offizieller Dokumenta¬ 
tion, entsprechend der Bezeichnungen 
für die ROM-Routinen der CPC-Com- 
puter, gewählt. Ein Vergleich der Sy¬ 
stemroutinen beider Computer zeigt 
weitgehende Übereinstimmungen der 
einzelnen Funktionen. 


Aufteilung 

Prinzipiell lassen sich die Routinen des 
Terminal-Emulators in folgende Grup¬ 
pen unterteilen: 

— Initialisierung 

— Zeichenausgabe 

— Bearbeitung der ESCape-Sequenzen 

— Cursorsteuerung/Fensterverwaltung 

— Statusausgabe 

Da der Abschnitt Statusausgabe sehr 
umfangreich ist. werden wir ihm einen 
extra Beitrag widmen, in dem neben 
der Erläuterung der vorhandenen 
Funktionen auch das Erzeugen eigener 
Statusmeldungen gezeigt werden soll. 
Die Initialisierung beinhaltet das Lö¬ 
schen des Bildschirms, die Auswahl 
von Farbe, Zeichensatz und Ausgabe- 
attribut. 

Im einzelnen kann der Anwender dazu 
folgende Routinen aufrufen: 

TE RESET $0540 

initialisiert den Bildschirm und setzt di¬ 
verse Default-Werte für: 

— Zeichensatz (deutsch) 

— Bildschirmfarbe (hell auf schwarz) 

— Cursor-Koordinaten (0,0) 
-Bildschirmgröße (32 x 90) 

Es empfiehlt sich, diese Routine immer 
dann aufzurufen, wenn man einen defi¬ 
nierten Zustand des Bildschirms, zum 
Beispiel nach Direktzugriffen auf den 
Bildschirmspeicher oder Manipulatio¬ 
nen des Roller-RAM (dient der Adres¬ 
sierung des Bildschirmspeichers), be¬ 
nötigt. 

TE ASK S06F7 

übergibt die aktuellen Fenster- und 
C u rsor- Koord i naten 
TE SET MODE $073D 
wählt einen neuen Bildschirmmodus 
aus. Diese Routine besteht nur aus 
Gründen der Kompatibilität und be¬ 
wirkt eine Umschaltung auf die Bild¬ 
schirmgröße 32 Zeilen mal 90 Zeichen 
(32 x 90) bei Wahl der Modi 0 und 1. 
Modus 2 bewirkt lediglich ein Löschen 
des Bildschirms. 

TE SET CH AR ATTRIBUTE $08E4 
ermöglicht die Neueinstellung der Aus¬ 
gabeattribute und löscht das vorhande¬ 
ne Attribut. Zulässige Attribute sind: 

— normale Ausgabe 

— normale Ausgabe, unterstrichen 

— invertierte Ausgabe 

— invertierte Ausgabe, unterstrichen 
Für die Farbeinstellung bietet der Ter¬ 
minal-Emulator vier Routinen, die dem 
Nutzer die Umschaltung von schwarz/ 
grün auf grün/schwarz (und umge¬ 
kehrt) ermöglichen. Für die Erzeugung 
der Farben gibt es drei Farbwerte, die 
über eine Farbnummcr angesprochen 
und verändert werden können: 
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Nummer 

Zeichensatz 

0 

amerikanisch 

1 

französisch 

2 

deutsch 

3 

englisch 

4 

dänisch 

5 

schwedisch 

6 

italienisch 

7 

spanisch 


Tabelle I; Die verfügbaren Zeichensätze des 
JOYCE 


Farbe 0 = Border (Rand) 

Farbe I = Paper (Hintergrund) 

Farbe 2 = Pen (Schrift) 

Die Berechnung des endgültigen Farb¬ 
werts ist recht kompliziert, braucht 
aber den Nutzer normalerweise nicht 
zu interessieren, da der JOYCE sowie¬ 
so nur zwei Farben kennt. Mit den fol¬ 
genden Routinen TE SET PAPER und 
TE SET PEN läßt sich relativ einfach 
eine Umschaltung dieser Farben errei¬ 
chen: 

TE SET PAPER $08EE 
legt die Hintergrundfarbe fest. Hier 
läßt sich ein heller Hintergrund jedoch 
nur erreichen, wenn der Farbcode für 
PAPER einen größeren Wert annimmt 
als der Farbcode für PEN. Wird Bit 6 
im Farbcode gesetzt, überdeckt die 
Hintergrundfarbe auch die Schriftfar¬ 
be, was bedeutet, daß der Bildschirm 
dabei dunkel beziehungsweise hell ge¬ 
tastet wird. 

TE SET PEN $08F6 
legt die Schriftfarbe fest. Eine Ände¬ 
rung der Schriftfarbe hat automatisch 
auch eine Änderung der Hintergrund¬ 
farbe zur Folge. Wird der Farbwert für 
die PEN-Farbe größer als der Wert für 
PAPER, ist die Schriftfarbe hell, der 
Hintergrund dunkel. Ist der PEN-Farb- 
wert kleiner, wird der Hintergrund 
hell, die Schriftfarbe dunkel. 

Der Default-Wert für die PAPER-Far- 
be ist nach der Initialisierung $01, der 
Farbwert für die PEN-Farbe ist auf 
S3F gesetzt. 

TE SET INK $0901 
ermöglicht beim JOYCE nur die Ein¬ 
stellung von PAPER- und PEN-Far- 
ben, alle anderen Farbnummern wer¬ 
den ignoriert. 

TE SET BORDER $090C 
erlaubt beim JOYCE nur ein Umschal¬ 
ten der Farben (siehe TE SET PAPER). 
TE SET SPEED $090F 
definiert die Zeitwerte (Einheit 1/50 
Sekunde) für den Farbwechsel. Beim 
JOYCE läßt sich hier nur ein Blinken 
des kompletten Bildschirms erreichen. 
TE SET LANGUAGE $0912 
schaltet auf den gewünschten Zeichen¬ 
satz um. Die hier möglichen Zeichen¬ 


sätze sind in Tabelle 1 aufgelistet. 
Beim Aufruf dieser Routine erfolgt kei¬ 
ne Überprüfung, ob die gewünschte 
Zeichensatznummer zulässig ist! 

In den Bereich "Verschiedenes“ gehö¬ 
ren die beiden folgenden Aufrufe: 

TE JUMP (DE) $09 AF 

führt einen Sprung zu der im DE-Regi- 

ster spezifizierten Adresse durch. 

TE JUMP (HL) $09B 1 
führt einen Sprung zu der im HL-Regi- 
ster spezifizierten Adresse durch (ent¬ 
spricht dem Z80-Bel'ehl JP (HL)). 

Zeichenausgabe 

Für die Zeichenausgabe hält der Ter¬ 
minal-Emulator nur zwei Routinen be¬ 
reit, die sich jedoch in einigen Punkten 
wesentl ich unterscheiden: 

TE TXT OUTPUT $0548 
ermöglicht die Ausgabe eines Zeichens 
und die Bearbeitung der Steuersequen¬ 
zen (ESCape-Sequenzen). Diese Routi¬ 
ne ist die sicherste Methode, Zeichen 
an den Bildschirmtreiber zu senden. 
Bei der Zeichenausgabe wird die 
Schreibmarke (Cursor) automatisch 
weiterbewegt. 

TE W RITE CHAR $07A9 
kann ebenfalls zur Zeichenausgabe 
aufgerufen werden. Hierbei werden 
Steuercodes allerdings als normale 
Ausgabezeichen interpretiert. Eine 
Verwendung dieser Routine ist beson¬ 
ders nützlich, wenn man Zeichen mit 
einem ASCII-Code < $20 ausgeben 
will, da diese normalerweise ein voran¬ 
gestelltes ESC-Zeichen (ASCII-Code 
$1B) benötigen. 

Auch bei diesem Aufruf wird der Cur¬ 
sor automatisch weiterbewegt, der 
Anwender muß jedoch selbst dafür sor¬ 
gen. daß der Cursor an der neuen Posi¬ 
tion wieder eingeschaltet wird (siehe 
TE CUR ENABLE). 

Zur Bearbeitung der Steuerzeichen läßt 
sich folgende Empfehlung geben: Bis 
auf wenige Ausnahmen sollten Steuer¬ 
code-Sequenzen. die in der Regel mit 
dem ESC-Zeichen (ASCII $1B) einge¬ 
leitet werden, über die Ausgabe-Routi¬ 
ne TE TXT OUTPUT abgewickelt wer¬ 
den. Das ist damit begründet, daß für 
viele dieser Steuersequenzen die Cur¬ 
sorposition und eventuell auch die 
Koordinaten des aktuellen Darstel¬ 
lungsfensters benötigt werden. Wäh¬ 
rend der Ausführung von TE TXT 
OUTPUT werden diese Daten automa¬ 
tisch in die Prozessor-Register über¬ 
nommen, und es erscheint mir daher 
unnötig, dies noch einmal extern vom 
Anwenderprogramm zu programmie¬ 
ren. Allerdings kann man einige spe¬ 


zielle Funktionen, wie zum Beispiel die 
Farbumschaltung (siehe oben) oder die 
Definition des Darstellungsfensters 
etc., auch direkt aufrufen. Für den di¬ 
rekten Aufruf eignen sich außerdem 
folgende Steuerfunktionen: 

ESC x $0736 

begrenzt das Darstellungsfeld des Bild¬ 
schirms auf 24 Zeilen zu je 80 Zeichen. 
ESC y $0733 

hebt den 24x80-Modus auf und setzt 
die Bildschirmgröße auf 32 Zeilen zu 
90 Zeichen. 

ESC v $07F8 

schaltet die AUTO-CR/LF Funktion 
ein. 

Am Ende einer Zeile wird der Cursor 
automatisch an den Beginn der näch¬ 
sten Zeile gesetzt. 

ESC w $07FC 

schaltet den AUTO-CR/LF Modus 
wieder aus. 

ESC E $0878 

löscht den Bildschirm, der Cursor 
bleibt an seiner Position. 

ESC r $08 D2 

schaltet den Unterstreichungs-Modus 
ein. 

ESC u $08D7 

schaltet den Unterstreichungs-Modus 
aus. 

ESC p $08DC 

schaltet die inverse Zeichenausgabe 
ein. 

ESC q $08El 

schaltet die inverse Zeichenausgabe 
aus. 

Diese vier Funktionen lassen sich 
ebenso über die oben genannte Routine 
TE SET CHAR A TTRIBUTE ein- und 
ausschaltcn. 


ESC-Sequenz 

Einsprungadresse 

ESCA 

$0801 

ESC D 

$0805 

ESC B 

$0809 

ESC C 

$080C 

ESCI 

$080F 

ESCH 

$0846 

ESC Y z s 

S084E 

ESC d 

$0864 

ESC J 

$0883 

ESCI 

$089A 

ESCo 

S08A2 

ESC L 

$08B0 

ESC M 

$08B5 

ESC N 

$08C9 

Steuercode 

Einsprungadresse 

BEL ($07) 

$07E0 

BS ($08) 

$081F 

CR ($0C) 

$0832 

LF ($0A) 

$0836 


Tabelle 2: Direkteinsprünge zur Bearbeitung 
der Steuercode-Sequenzen 
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TE RESET 

Eing.: 

Ausg.; 

Benutzte Register: A, BC, DE, HL 

Adresse: $0540 
keine Parameter 
keine Parameter 


TE TXT OUTPUT 

Eing.: 

Ausg.: 

Benutzte Register: A, BC, DE, HL 

Adresse: $0548 

C = Ausgabezeichen oder 

Steuercode 

keine Parameter 


TE CUR ENABLE 

Eing.: 

Ausg.: 

Benutzte Register: A, HL 

Adresse: $06AD 
keine Parameter 
keine Parameter 


TE CUR DISABLE 

Eing.: 

Ausg.: 

Benutzte Register A DE. HL 

Adresse: $06B5 
keine Parameter 
keine Parameter 


TE DRAW/LJNDRAW CURSOR 
Eing.: 

Ausg.: 

Benutzte Register: A, DE, HL 

Adresse: $06C6 
keine Parameter 
keine Parameter 


TE PLACE/REMOVE CURSOR 
Eing.: 

Ausg.: 

Benutzte Register; A. DE. HL 

Adresse: S06D0 
keine Parameter 
keine Parameter 


ESC f 

Eing.: 

Ausg.: 

Benutzte Register: A 

Adresse: $06DC 
keine Parameter 
keine Parameter 


ESC e 

Eing.: 

Ausg.: 

Benutzte Register; A 

Adresse: $06 DF 
keine Parameter 
keine Parameter 


TE ASK 

Eing.: 

Ausg.: 

Benutzte Register: BC, DE, HL 

Adresse: $06F7 
keine Parameter 

B = obere Zeile des akt. 

Darstellungsfensters 

C = li. Spalte des akt. 

Darstellungsfensters 

D = Höhe des akt. 

Darstellungsfensters -1 

E = Breite des akt. 

Darstellungsfensters -1 

H = relative Cursorzeile 

L = relative Cursorspalte 


ESC y 

Eing.: 

Ausg.: 

Benutzte Register: A, BC. DE, HL 

Adresse: $0733 
keine Parameter 
keine Parameter 


ESC x 

Eing.: 

Ausg.: 

Benutzte Register: A, BC, DE. HL 

Adresse: $0736 
keine Parameter 
keine Parameter 


TE SET MODE 

Eing.: 

Ausg.: 

Benutzte Register: A. BC, DE, HL 

Adresse: $073D 

A = Modus (0..2) 
keine Parameter 


TE SET WINDOW 

Eing.: 

Ausg.: 

Benutzte Register: A. BC, DE, HL 

Adresse: $0783 

H = obere Zeile 

L = linke Spalte 

D = Fensterhöhe-1 

E p Fensterbreite -1 
keine Parameter 


TE WRITE CHAR 

Eing.: 

Ausg.: 

Benutzte Register: A, BC, DE, HL 

Adresse: $07A9 

C = Ausgabezeichen 
keine Parameter 


BEL ($07. Beeper On) 

Eing.: 

Ausg.: 

Benutzte Register: A, BC, HL 

Adresse: $07E0 
keine Parameter 
keine Parameter 



ESC v 

Eing.: 

Ausg.: 

Benutzte Register: A 

Adresse: $07F8 
keine Parameter 
keine Parameter 

ESC w 

Eing.: 

Ausg.: 

Benutzte Register: A 

Adresse: S07FC 
keine Parameter 
keine Parameter 

ESC E 

Eing.: 

Ausg.: 

Benutzte Register: A, BC, DE, HL 

Adresse: $0878 
keine Parameter 
keine Parameter 

Steuersequenzen gern. Tabelle 2 
Eing.: 

Ausg.: 

Benutzte Register: A. BC. DE, HL 

H = Cursorzeile 

L = Cursorspalte 
keine Parameter 

ESC r 

Eing.: 

Ausg.: 

Benutzte Register: A, BC, HL 

Adresse: $08D2 
keine Parameter 
keine Parameter 

ESC u 

Eing.: 

Ausg.: 

Benutzte Register: A, BC, HL 

Adresse: S08D7 
keine Parameter 
keine Parameter 

ESC p 

Eing.: 

Ausg.: 

Benutzte Register; A, BC, HL 

Adresse: $08DC 
keine Parameter 
keine Parameter 

ESC q 

Eing.: 

Ausg.: 

Benutzte Register: A, BC, HL 

Adresse: $08E1 
keine Parameter 
keine Parameter 

TE SET CHAR ATTRIBUTE 

Eing.: 

Ausg.: 

Benutzte Register: A, BC, HL 

Adresse: $08E4 

B = 0 

C = Attribute-Code 
(Bit 1 = unterstreichen, 

Bit 2 = invers) 
keine Parameter 

TE SET PAPER 

Eing.: 

Ausg.: 

Benutzte Register: A, BC, DE, HL 

Adresse: 808EE 

A = Farbwert 
keine Parameter 

TE SET PEN 

Eing.: 

Ausg.: 

Benutzte Register: A. BC, DE, HL 

Adresse: $08F6 

A = Farbwert 
keine Parameter 

TE SET INK 

Eing.: 

Ausg.: 

Benutzte Register: A, BC, DE, HL 

Adresse: $0901 

A = Farbnummer (0..2) 

B = Farbwert 1. Farbe 

C = Farbwert 2. Farbe 
keine Parameter 

TE SET BORDER 

Eing.: 

Ausg.: 

Benutzte Register: A. BC, DE, HL 

Adresse: $090C 

B = Farbwert 1. Farbe 

C = Farbwert 2. Farbe 
keine Parameter 

TE SET SPEED 

Eing.: 

Ausg.: 

Benutzte Register: HL 

Adresse: $090F 

H = Zeitwert 1. Farbe (1/50 sec.) 

L = Zeitwert 2. Farbe (1/50 sec.) 
keine Parameter 

TE SET LANGUAGE 

Eing.: 

Ausg.: 

Benutzte Register: A, BC. DE, HL 

Adresse: $0912 

A = neue Zeichensatznummer (0..7) 
keine Parameter 

TE JUMP (DE) 

Eing.: 

Ausg.: 

Benutzte Register: DE 

Adresse: $09AF 

DE = Sprungadresse 
keine Parameter 

TE JUMP (HL) 

Eing,: 

Ausg.: 

Benutzte Register: HL 

Adresse: S09B1 

HL = Sprungadresse 
keine Parameter 


Tabelle J: Die Funktionen des Terminal-Emulators im Überblick 
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Die Größe des Darstellungsfensters, 
normalerweise durch die Steuerse¬ 
quenz ESC X oz Is h b definiert (ver¬ 
gleiche Handbuch), läßt sich auch di¬ 
rekt festlegen: 

TE SET WINDOW $0783 
bestimmt die Größe des Darstellungs¬ 
fensters. Der sonst bei Verwendung 
der ESC-Sequcnz benötigte Offset von 
$20 ist beim direkten Aufruf der Routi¬ 
ne nicht erforderlich. Liegen die über¬ 
gebenen Koordinaten außerhalb des 
Bildschirms, werden automatisch Ma¬ 
ximalwerte benutzt. Leider kann das 
BIOS des JOY CE nur jeweils ein einzi¬ 
ges Fenster verwalten. Wenn Sie also 
mit mehreren Fenstern gleichzeitig ar¬ 
beiten möchten, müssen Sie die Ver¬ 
waltung selbst übernehmen. 

Der Cursor 

Da die Bewegungen des Cursors eben¬ 
falls über ESCape-Steuersequenzen 
beziehungsweise automatisch bei der 
Ausgabe eines Zeichens erfolgt, sollte 
man hier, außer für spezielle Anwen¬ 
dungen, ruhig auf die vom BIOS ange¬ 
botenen Routinen, speziell TE TXT 
OUTPUT zurückgreifen. 

Sollte es dennoch notwendig sein, die 
Cursorbewegungen selbst zu program¬ 
mieren, sei darauf hingewiesen, daß 
die Schreibmarke jeweils an der alten 
Position ausgeschaltet (TE CUR DIS- 
ABLE) und an der neuen Position wie¬ 
der eingeschaltet (TE CUR ENABLE) 
werden muß. Außerdem werden für 


alle Cursorroutinen die aktuellen Koor¬ 
dinaten des Cursors im HL-Register 
erwartet. 

TE CUR ENABLE $06AD 
aktivieit den Cursor-Event (Interrupt), 
sprich diese Routine ermöglicht das 
Einschalten des Cursors. Ob er wirk¬ 
lich eingeschaltet werden kann, ist vom 
sogenannten Cursor-Flag abhängig. 

TE CUR DISABLE $06B5 
deaktiviert den Cursor über die Routi¬ 
ne TE PLACE/REMOVE CURSOR. 

TE DRAW/UNDRAW CURSOR 

$06C6 

schaltet den Cursor in Abhängigkeit 
vom Cursor-Flag ein oder aus (Event- 
Routine). 

TE PLACE/REMOVE CURSOR 
$06D0 

zeichnet beziehungsweise löscht den 
Cursor. Er wird übrigens durch einfa¬ 
ches Invertieren der entsprechenden 
Zeichenmatrix im Bildschirmspeicher 
erzeugt. Damit ist eine Änderung der 
Cursorgröße oder -form nicht so ohne 
weiteres möglich. 

ESC e $06DF 

setzt das Cursor-Flag auf $FF (on) 

ESC f $06DC 

setzt das Cursor-Flag auf $00 (off) 
Da die Routinen zum Bewegen des 
Cursors und zum Löschen von Zeilen 
und Bildschirmausschnitten weitge¬ 
hend den ESC-Steucrsequenzen ent¬ 
sprechen, will ich auf eine detaillierte 
Erläuterung der Funktionen hier ver¬ 
zichten. Eine ausführliche Erklärung 


der Sequenzen finden Sie im Benutzer¬ 
handbuch, Anhang 3. 

Die zweite Tabelle gibt Auskunft über 
die entsprechenden Einsprungadressen 
dieser Routinen. Wie schon erwähnt, 
muß beim Aufruf im HL-Register die 
aktuelle (oder neue) Cursorposition 
übergeben werden. Die aktuelle Cur¬ 
sorposition wird vom Terminal-Emu¬ 
lator übrigens in den Adressen $2826 
(Spalte) und $2827 (Zeile) aufbewahrt. 
Damit können wir diesen Beitrag über 
die allgemeinen Funktionen des Termi¬ 
nal-Emulators abschließen. 

Tabelle 3 faßt noch einmal alle hier 
besprochenen Routinen und ihre Über¬ 
gabe-Parameter zusammen, die Bei¬ 
spiel! istings zeigen, wie Sie diese 
Funktionen aufrufen und verwenden 
können. 

Wie anfangs schon angedeutet, wird 
unser nächstes Thema die Ausgabe und 
Verwaltung der Statusmeldungen sein. 
Sie werden feststellen, daß der JOYCE 
noch viel Interessantes zu bieten hat. 
Wie jeden Monat können Sie auch dies¬ 
mal wieder alle Porgramme auf unserer 
Databox wiederfmden. 

Die Dateien im einzelnen: 
SETBG.COM, SETBG.PAS - Um¬ 
schalten der Farben 

DIREKT.BAS — direkte Zeichenaus¬ 
gabe 

ZSTEST.COM, ZSTEST.ASM - 
BEISPIELPROGRAMM 

Norbert Finke/rs 


LISTING >DIREKT <, REMARK = >'<. 

< 5> 1000 '>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<< 

<<<<< 

<23> J 01 2<' >> DIREKT - BAS leitet Bildschirm-Ausgabe 
<19> 1020 ' >> direkt, unter Umgehung des BDOS/BIOS 

< 1> 1030 '» an den Terminal-Emulator. 

.. << 

<48> 1040 •>> Nach Aufruf mit GOSUB 1080.... werde 
n. << 

<30> 1050 '» sämtliche Ausgaben über eine Maschi- 
. . << 

<68> 1060 '>> nen-Routinen umgeleitet... 

. . << 

<26> 1070 '>>>>>>>»>>>>>>>>>>>><<<<<<<<<<<<<<<<<< 
<<<<< 

<83> 1080 MEMORY HIMEM-6:RESTORE 1150 
<72> 1090 direkt%=UNT(HIMEM+l) 

<94> 1100 FOR i=direkt% TO direkt%+5 
<28> 1110 READ a$:POKE i,VAL("&H"+a$) 

<90> 1120 NEXT 

<25> 1130 OPTION PRINT = direkt% 

<92> 1140 RETURN 

<92> 1150 DATA CD,5A,FC:'CALL FC5A 

<19> 1160 DATA 48,05.. :'DEFW TE TXT OUTPUT 

<62> 1170 DATA C9. :'RET 

<31> 1180 '>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<< 


<<<<< 



PROCEDURE Set_BG_Color (Farbe : Color Type); 

(* setzt die Hintergrundfarbe neu. 
c °l°r_Type muß vor dem Aufruf mit 
-> TYPE Color Type = (hell, dunkel) 
definiert werdenT *) 

CONST TE_SET_PAPER = $08EE; 

TE_SET_PEN = $08F6; 

VAR color : BYTE; 


BEGIN 

CASE Farbe OF 

hell : color := 63; 
dunkel : color := 0 ; 
END; 

INLINE( 

$3A/color/ 

$CD/$5A/$FC/ 

TE SET PAPER/ 

$3Ä/coIor/ 

$2F/ 

$E6/$3F/ 

$CD/i$5A/$FC/ 

TE SET PEN) ; 

END; 


(* LD Ä,(color) 

(* CALL 0FC5AH 
(* DEFW TE SET PAPER 
(* LD A,Xcolor) 

(* CPL 

(* AND A,03FH 
(* CALL 0FC5AH 
(* DEFW TE SET PEN 


*) 

*) 

*') 

*) 

*> 

*) 

*) 

*) 
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;Die folgenden Routinen zeigen verschiedene 
;Möglichkeiten, die Betriebssystem-Routinen 
;JOYCE aufzurufen und zu nutzen. 

;EQUATES Definition der System-Adressen: 

BIOS USERF EQU 0FC5AH 

TE RESET EQU 00540H 

TE — TXT OUTPUT EQU 00548H 

TE - CUR ENABLE EQU 006ADH 

TE — CUR DISABLE EQU 006B5H 

TE WRITE CHAR EQU 007A9H 

ESC H EQU 00846H 

ESC - Y EQU 0084 EH 

TE SET LANGUAGE EQU 00912H 

CR — Code EQU 0000DH 

LF_Code EQU 0000AH 

;Cursor über die Routine TE CUR DISABLE aus- 
;schalten 

OFF Cursor CALL BIOS USERF 

DEFW TE_CÜR_DISABLE 

;Cursor mit ESC H (Direkt-Einsprung) auf Position 

; o, o 

Home Cursor CALL BIOS USERF 

DEFW ESC_H 

;Bildschirm über TE RESET löschen 

Clr Screen CALL BIOS_USERF 

~ DEFW TE_RESET 

;kompletten Zeichensatz ausgeben,dabei die Länder- 
;spezifischen Zeichen wechseln 

ZS_Out LD B, 7 

;Zeichensatz wechseln mit TE SET LANGUAGE 

ZS Change LD A,B 

PUSH BC 


CALL BIOS_USERF 
DEFW TE_SET_LANGUAGE 

/ 

;mit TE WRITE CHAR alle Zeichen ausgeben 
XOR A,A 

L2 ZS Out LD C,A 

PUSH AF 

CALL BIOS USERF 
DEFW TE WRITE CHAR 
POP AF 
INC A 

JR NZ,L2_ZS_Out 

;CR/LF über TE TXT OUTPUT ausgeben 

LD C,LF Code 
CALL BIOS_USERF. 

DEFW TE TXT OUTPUT 
LD C,ÜR_Cöde 
CALL BIO£_USERF 
DEFW TE TXT OUTPUT 


POP BC 

DJNZ ZS_Change 

/ 

;wieder auf deutschen Zeichensatz (# 2) schalten 

ZS_CH2 LD A,2 

CALL BIOS USERF 

DEFW TE_SET_LANGUAGE 

;und Cursor mit TE ENABLE CURSOR einschalten 

On Cursor CALL BIOS USERF 

DEFW TE_CÜR_ENABLE 

/•Programm mit Warm-Boot beenden 

iliiiiiiSiii 

END 


Auftrieb für den PCW 


Neue Soft- und Hardware 

Wer meinte, das Ende der PCW-Computer sei langsam, aber sicher unaus¬ 
weichlich, hat sich in den vergangenen Monaten genau vom Gegenteil über¬ 
zeugen können. Immer wieder kamen neue Produkte auf den Markt, die in 
der Qualität keinen Zweifel an der Professionalität ließen. 


Wer gerne seinen PCW unter die Arme 
nehmen will, kann dies mittels der 
Tragetasche (2) tun. Neben dem Com¬ 
puter mit Tastatur findet hier auch noch 
der Drucker seinen Platz. 

Mit dem Titel “We’ve got you co- 
vered“ (2) wird für ein Produkt gewor¬ 
ben. das der PCW-Tastatur wortwört¬ 
lich das Schwitzen beibringt. So findet 
sich innerhalb des Pakets eine Weich¬ 
plastikhülle, die genau auf die Tasten 
des PCW 8.xxx sowie die der 9er-Serie 
paßt. 

Wer seinen PCW gerne in Modula (2) 
programmieren möchte, kann auf das 
Borland-Produkt für den PCW zugrei¬ 


fen. Für lediglich 248,- DM bekommt 
er ein mächtiges Werkzeug in die 
Hand. 

Mittels einer speziellen Soft- und 
Hardware kann der zukunftsorientierte 
PCWler seine Daten direkt von einem 
PCW auf einen PC hinübcrkatapultie- 
ren. Neben der Software enthält die 
Lieferung von LocoLink ( I ) auch noch 
ein entsprechendes Verbindungskabel. 
Wenn Ihnen das Druckgeräusch Ihres 
9512er-Druckers langsam, aber sicher 
den letzen Nerv raubt, sollten Sie ihn 
einfach in die Ferne rücken. Als Ver¬ 
bindung dient hier ein Drucker-Ver¬ 
längerungskabel (2). Ein sehr kom¬ 


plexes Werkzeug wird dem PCW-Bc- 
sitzer mit dem PCW-Toolkit, Version 
2 (2) in die Hand gegeben. Hierbei han¬ 
delt es sich um ein Programm, das viele 
Funktionen rund um die Diskette bc- 
reitstellt. Kopieren. Formatieren sowie 
das Wiederbeleben bereits totgeglaub- 
ter Disketten sind einige seiner leichte¬ 
sten Übungen. 

Auch ein Computer braucht Pflege. 
Will man ihn abends nach getaner Ar¬ 
beit zudecken, steht dem nichts im 
Wege. Entscheiden müssen Sie jedoch, 
ob Sie sich die Staubschutzhaube 
(1/2) für 69,90 DM oder lieber die für 
74,90 DM zulegen möchten. 

Da auch der Drucker ab und zu etwas 
Pflege benötigt, sollten Sie ihn gele¬ 
gentlich reinigen. Mit Cleanprint 
(1/2) erhalten Sie neben einem Reini¬ 
gungsfarbband auch noch Reinigung¬ 
stücher und -flüssigkeit. 

rs 


Die unbesprochenen Produkte wurden uns von folgen¬ 
den Firmen zur Verfügung gestellt: 

(1) Wiedmann. Korbiniansplatz 2. 8045 Ismaning 

(2) EDV-Obermeier. Blinder Sir. 20, 4972 Löhne 
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Utilities sind überall 


Hell/Dunkel in Kombination 

In der PCI 12/91 wurden zwei Hilfsprogramme zum Hell/Dunkel- 
Schalten des PCW-Monitors veröffentlicht. Nachteil bei dieser 
Lösung war jedoch, daß man sozusagen blind das Programm “Hell“ 
starten mußte. Eine wesentlich komfortablere Lösung möchten wir 
Ihnen also nicht vorenthalten. 


Das Programm STBY (Abbildung 1) 
beinhaltet eine Kombination aus den 
angesprochenen Programmen. Zum ei¬ 
nen wird bei dem Aufruf des Pro¬ 
gramms der Bildschirm dunkel ge¬ 
schaltet (DUNKEL.COM), und das 
Programm wartet auf einen Tasten¬ 
druck (WARTE.COM). Wird nun 
< RETURN > gedrückt, wird der Mo¬ 
nitor wieder eingeschaltet (HELL. 
COM), und die Arbeit am Computer 
kann weitergehen. 

Um die Bedienung noch weiter zu ver¬ 
einfachen, wurde das Programm EX- 
PAND.COM (Abbildung 2) geschrie¬ 
ben. Es legt auf die Tastenkombination 
<SHIFT>+ <F2> das Wort STBY. 
So müssern zum Start des Bildschirm¬ 
schoners nur noch < SHIFT > + < F2 > 
gefolgt von < RETURN > gedrückt 


werden, und der Bildschirm wird 
dunkel. 

Natürlich sollten Sie den Aufruf von 
EXPAND.COM direkt in Ihre PRO¬ 
FILE. SUB-Datei einfügen. Im glei¬ 
chen Zuge könnte STBY auf Laufwerk 
M: kopiert werden, und Laufwerk M: 
könnte in der Suchliste direkt am An¬ 
fang stehen. Ein Beispiel hierfür anbei: 

EXPAND.COM 

PIPM:=A: STBY. COM 

setdef m:, a:, *Äorder= (sub. com) 

temporary=M: Ö 

Zur Eingabe 

Sicherlich stehen so manche von Ihnen 
sprichwörtlich auf dem Schlauch, 
wenn sie die in Abbildung 1 und 2 ge¬ 
zeigten Programm-Dumps vor sich ha¬ 


ben und damit nichts anzufangen wis¬ 
sen. Also anbei noch eine kurze Erläu¬ 
terung, wie Sie diesen und auch andere 
Dumps eingeben können. 

So geht’s 

Nehmen wir also das Programm 
STBY. Als erstes sollten Sie das Pro¬ 
gramm SAVE.COM von Ihrer CP/M- 
Systemdiskette mittels A > SAVE 

< RETURN> starten. Nun erscheint 
wieder das Systemprompt, und Sie 
können das Programm SID starten. 
Nachdem das Programm seinen Start 
gemeldet hat, erscheint das Gatter (#), 
und Sie geben 'S 100’ gefolgt von 
<RETURN> ein. Die S100 bedeutet 
hier, daß Sie ab der Speicherzelle 100 
Änderungen vornehmen wollen. Nun 
geben Sie die in der Abbildung aufgeli¬ 
steten Zahlen ab 3E jeweils gefolgt von 

< RETURN> ein. 

Sie sehen, daß das Programm bis zu 
der Speicheradresse 013f reicht. Diese 
Zahl sollten Sie sich notieren, da Sie 
später noch benötigt wird. Geben Sie 
nun einen Punkt gefolgt von < RE¬ 
TURN > ein, um die Eingabe zu been¬ 
den. Mit <ALT>-<C> beenden Sie 
nun SID.COM. Nun meldet sich das 
am Anfang gestartete Programm 
SAVE.COM wieder und verlangt von 
Ihnen einige Angaben. Als erstes wäre 
da die Eingabe des Dateinamens zu tä¬ 
tigen. In diesem Falle also STBY. 
COM. Nun die Startadresse 100. Und 
als Endadresse geben Sic den notierten 
Wert 013f ein. 

Nun wird das Programm STBY abge¬ 
speichert, und Sie können es benutzen. 
Mit dem Programm EXPAND.COM 
verfahren Sie nun genauso. 

(Dieter Kinzinger/rs) 
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1 Floppy's für CPC 464/664/6128 \ 

TEAC - Einbsulautworke: 

FD 55 GFR 5.25"" 360 KB/1,2 MB 

FD 235 HF 3,5" 720 KB/I ,44 MB 

Einbaurahmon 5.25' 

DM 145,00 
DM 139,00 
DM 25,00 

Hitachi HFD 3' 360 K8 

DM 99,00 

•STARDRIVE ZweltlaulW. anschlußferllg für CPC: 

•stardrlve 5.25“-TEAC- (720/360 KB) 

•Stardrive 35* -TEAC- (720/360 KB) 

•Stardrlve »"-Hitachi- (360 KB) 

DM 289,00 
DM 239,00 
DM 199,00 

•STARDRIVE Erstlaufw. lür CPC 464: 

•Stardrivo 3' -Hitachi- (Incl, Kontr.) 

"Stardrlve 5,25“-TEAC- (incl. Kontr.) 

DM 395.00 
DM 469,00 

DISKETTEN (Auszug): 

5.25" - 40 TPI (MD2D) (to Stk.) 

35“- 135 TPI (MF2DD) (lOStk.) 

3‘ - Maxell CF2- (10 Stk.) 

DM 7.50 
DM 15,00 
DM 59,00 

ACHTUNG: Div, Sonderposten eingetroffenl 


Weitere Angebote entnehmen Sie bitte u. Prospekten/Uslen, die wir Ihnen gerne kostenlos zuschicken 

Preis zzgl, Porto/Verpackung. 


G + L electronic 

Computerhardware 

6759 Hefersweiler*Seelenerstraße 4*Tel.: 06359/2582 
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Schluß mit dem 
Schreibkram 

Bankformulare mit dem PCW ausfüllen 

Gerade erst in der CPC 2/3’91 für den CPC veröffentlicht, können wir 
Ihnen jetzt das Programm LASTSCHRIFT auch für den PCW anbieten. 
Hiermit wird es Ihnen ermöglicht, Lastschriften und Überweisungsträger in 
größer Stückzahl ganz einfach mit dem Computer auszufüllen. 


Nach dem Start mit RUN “LASTJOY“ 
läuft zuerst die Initialisierung des Pro¬ 
gramms; alle Felder werden dimensio¬ 
niert und auf dem Bildschirm wird eine 
Grafik aufgebaut, die dem Aufbau der 
Formulare der Banken und Sparkassen 
entspricht. In einem Fenster am unteren 
Rand des Bildschirms wird nach der 
Einblendung einer kurzen Information 
über das Programm der Monatsname 
abgefragt. Danach erscheint das Haupt¬ 
menü mit insgesamt sechs Auswahl- 
möglichkciten. 

Daten eingeben 

Sollte bei Anwahl der Dateneingabe be¬ 
reits eine Datei geladen sein, wird 
überprüft, ob noch Platz in der Datei 
ist. Dabei müssen die eigenen Konten¬ 
daten geladen beziehungsweise defi¬ 
niert werden. Anschließend wird noch 
gefragt, ob Lastschriften oder Über¬ 


weisungen eingegeben werden sollen. 
Nun kann man die nötigen Daten zügig 
eintippen; das Programm fragt unter 
Ausgabe der entsprechenden Texte alle 
sieben Felder des Formulars ab und 
fügt dann in der achten Zeile die eige¬ 
nen Daten automatisch ein. Nun kann 
der nächste Datensatz eingegeben wer¬ 
den. Alle Daten werden nach Eingabe 
sofort im grafisch dargcstclltcn Formu¬ 
lar eingetragen und bei Eingabe des 
nächsten Datensatzes Stück für Stück 
ersetzt. Gibt man in der ersten Zeile 
“ende“ ein, wird die Eingabe abge¬ 
schlossen, und man befindet sich wie¬ 
der im Hauptmenü. 

Daten bearbeiten 

Nach Anwahl dieses Programmpunktes 
erscheint ein Untermenü mit sieben 
Möglichkeiten. Suchen, Ändern , Lö¬ 


schen und Blättern erklären sich von 
selbst, ebenso wie Menne. 

Einer Erklärung bedarf aber der Menü¬ 
punkt Neuer Verwendungszweck, der 
eine besondere Art der Änderung bie¬ 
tet. In diesem Fall kann die erste Zeile 
des Verwendungszwecks bearbeitet 
werden. Steht zum Beispiel in der er¬ 
sten Zeile “Beitrag Oktober:“ gefolgt 
von der entsprechenden Summe, so 
kann man diesen Text nach Eingabe als 
Alttext durch den Neutext “Beitrag No¬ 
vember:“ in allen Datensätzen ersetzen 
lassen. Die Summe bleibt bei dieser 
Manipulation unberührt. Wer für Ver¬ 
eine oder ähnliche Institutionen Beiträ¬ 
ge einziehen muß, wird diese Möglich¬ 
keit sicher zu schätzen wissen. In die¬ 
sem Punkt sind natürlich Anpassungen 
des Programms an spezielle Bedürfnis¬ 
se denkbar. Wählt man den Programm¬ 
punkt Listen an, verzweigt das Pro¬ 
gramm in ein Untermenü. Unter / kann 
man eine Liste der Lastschriften/Über¬ 
weisungen auf Bildschirm oder Druk- 
ker ausgeben lassen. Folgende Felder 
werden dargestellt: Name, Verwen¬ 
dungszweck 1 und 2 und die Gesamt¬ 
summe. In den letzten drei Spalten er¬ 
rechnet das Programm unter Erken¬ 
nung von Kunden-, Rechnungsnum¬ 
mern und Datum die Gesamtsummen 
und gibt sie am Ende der Liste aus. 
Unter 2 erhält man eine Liste der Bank¬ 
verbindungen mit Name, Bankleitzahl, 
Institut und Kontonummer und 3 kann 
die Datensätze alphabetisch sortieren. 
Die im Programm benutzte hinlänglich 
bekannte Shell-Metzner-Routine wurde 
übernommen. 

Daten drucken 

Hier kann man endlich seine Datensät¬ 
ze den Formularen anvertrauen. Der 
Benutzer wird durch Hinweise auf dem 
Bildschirm unterstützt. 

Der Ausdruck geschieht Stück für 
Stück auf Tastendruck, damit jederzeit 
die Möglichkeit besteht, die Formulare 
zu justieren oder zu wechseln. 

Daten laden / Daten sichern 

Bei allen Disketten-Operationen wer¬ 
den in einem Fenster die Datendateien 
angezeigt. Danach kann man einen Na¬ 
men eingeben; die Extension “.DAT“ 
wird vom Programm hinzugefügt. 

Ende 

Nach einer Sicherheitsabfrage werden 
Programm und Daten im PCW ge¬ 
löscht. Helmut Schlimm/rs 
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LISTING >LASTJOY <, REMARK = >'<. 

< 1 > 10 ' **************************************** 
**************** 

< 2 > 20 1 *********. 


<42> 


*************** 

3> 30 ' *********. 

*************** 

4> 40 1 *********., 

*************** 

5 > 50 • *********. & CPC international 


Ueberweisung / Joyce... 
Fuer PC - International. 
Copyright. H. Schlimm_ 


*************** 

6 > 60 1 **************************************** 

**************** 

70 ON ERROR GOTO 3780 
80 escape$= CHR$(27) 

90 home$= escape$+ "H" 

100 cls$= escape$+ "E"+ home$ 

110 DEF FNab$ (x,y)= escape$+ "Y"+CHR$( 32+y+2 ) 
+CHR$( 32+X+5 ) 

120 curoff$=escape$+"f":curon$=escape$+"e" 

130 invon$=escape$+"p" 

140 invoff$=escape$+"q" 

150 window$(1)=FNab$( 6 , 2 ):windowS( 2 )=FNab$( 6 , 
5):windowS(3)=FNab$(56,5):window$(4)=FNab$(6 
8 ):wmdow$ (5)=FNab$ (49,11):windowS( 6 )=FNab $(6 
,14):windowS(7)=FNab$(6,15):windowS(8)=FNab$( 
6,18) 

160 DEF FNatS(x,y)= escape$+ "Y"+CHR$(32+22+y 
)+CHRS(32+10+x) 

170 GOSUB 2500 

180 GOSUB 2590 

190 IF weiter=l OR weiter =2 THEN GOTO 300 
200 PRINT curoff$;FNatS(16,1);". Copyright No 
vember >1990< Helmut Schlimm" 

210 PRINT FNatS(17,2);"- 

-—___tf 

< 0 > 220 PRINT FNatS(18,3);".. ****** Ü B E R W E 

I S U N G ******* 

<89> 230 PRINT FNatS(17,4);"- 


<30> 

< 79 > 

<76> 

<94> 

<18> 

<51> 
<43> 
< 16 > 
< 86 > 


<95> 

<76> 

<96> 

<59> 

<34> 

<45> 


<38> 240 PRINT FNatS( 2 ,5);".. Programm zum Ausfüll 
en u. Verwalten von Überweisungen/Lastschrift 
en" 

<55> 250 DIM eingabS(7):DIM a$( 2 ):DIM e$(7,l00):DE 
FINT b-r,t-z 

<20> 260 FOR n%=l TO 3000:NEXT n% 

< 5> 270 GOSUB 3860:PRINT FNatS(10,3);"Geben Sie b 
itte den MONATSNAMEN ein: ";:PRINT curon$;:IN 
PUT "",monat$:PRINT curoff$ 

<31> 280 GOSUB. 3860:PRINT FNatS(20, 2 );"Bei Einqab 
e eines Datums bitte ":PRINT FNatS(15,4);invo 
n$;"unbedingt";invoffS;" das Format: TT.MM.JJ 
einhalten !" 


<41> 
<90> 
<44> 
<39> 
<30> 
<14> 
< 88 > 
<57> 
<55> 
<74> 
< 3> 
<79> 
<41> 

< 21 > 

<81> 

<35> 


<37> 

<95> 


<44> 
< 8 > 
<45> 

<82> 


< 4> 
<83> 


290 FOR n=l TO 3500:NEXT 
300 GOSUB 3860 
310 PRINT FNatS(12,1 );"1 
320 PRINT FNatS( 12 , 2);"2 
330 PRINT FNatS( 12 ,3);"3 
340 PRINT FNat$(40,1);"4 
350 PRINT FNatS(40,2);"5 
360 PRINT FNatS(40,3);"6... „ „ w , 

370 PRINT FNatS(30,5);" Ihre Wahl? 

380 bb=VAL(INKEYS) 

390 IF bb=0 THEN GOTO 380 

?***** G0T0 41 °/ ? 50,1440,1860,2030,2170 
410 ********************************i****, 

***************** 

420 '*. 


" 1 . 

Daten 

eingeben" 

" 2 . 

Daten 

bearbeiten 

"3. 

Daten 

drucken" 

"4. 

Daten 

laden. " 

"5. 

Daten 

sichern" 

" 6 . 

..EN 

D E" 


Eingabe der Daten. 


430 '**************************************** 
***************** 

440 IF maxanzahl =100 THEN CLS:LOCATE 20 3 •pri 
NT CHR$(7);CHR$(24);" DATEI VOLL IM "Möl n 

7cr, T ?o 20 2? : ? EXT n: we iter=l :GOTO 170 
450 IF a $(1 )<>"" THEN 530 

e : ?°? UB 3860: PRINT FNat$ ( 10 ,3); CHR 

S(7),' Tastenbelegung/Kontendaten (d)efiniere 
n oder (l)aden " 

470 i.S = INKEY$:IF i$ = "" THEN 470 
480 IF i$o”d"AND i$o"l" THEN 470 

^GOTO F 3980 ER$(i$)= " d " THEN 500 ELSE ein 9 Qbe=1 
500 GOSUB 3860:PRINT FNatS( 1 , 2 );" Ihr Name, V 
orname/Firma (max. 27 Stellen). ";:PRINT curo 
n$;:LINE INPUT"",a$( 1 ) 

FNatS(25,4);" Ihre Kontonummer.. 

:INPUT"",a$(2):PRINT curoffS 
520 GOSUB 4130 


530 GOSUB 3860:PRINT FNatS(10,3);:INPUT.. 

.. (Überweisungen oder (L)astschriften ?. 
antwortS 

540 IF LOWER$(antwortS)="1» THEN GOSUB 2260 E 
LSE GOSUB 2370 
550 PRINT curonS 
560 FOR n=l TO 100 
570 maxanzahl=maxanzahl+l 

580 IF e$(l,n)<>"" THEN maxanzahl=maxanzahl-l 
:GOTO 740 
590 FOR a=l TO 7 

600 GOSUB 3860:PRINT FNatS(3, 2 );eingabS(a) 

610 PRINT FNatS(65,2);invon$;" Satz.Nr. ";inv 
off$;:PRINT FNatS(69,4);n 

620 PRINT FNatS(5,4);:LINE INPUT". ",e$(a,n): 
uebergab$=e$(a,n) 

630 IF sprung=i THEN sprung=0:e$(a,n)=ueberga 
bl$:GOTO 670 

640 IF LOWERS(e$(a,n))="ende" THEN e$(a,n)="" 
:maxanzahl=maxanzahl-l:weiter=l:PRINT curoffS 
:GOSUB 3910:GOTO 300 

659 IF LEN (e$(a,n))>27 THEN PRINT FNat$(15,5 
);invoff$;" Mehr als 27 Stellen !!!!! ";invof 
fS:FOR x=l TO 1000:NEXT:GOTO 600 

660 PRINT windowS(a);e$(a,n) 

670 NEXT a 

680 PRINT windowS( 8 );a$( 2 );". ";a$(l) 

699 PRINT FNatS(5,5);CHR$(7);invonS;".. Alles 
richtig ?. (J/N).. ";invoff$; 

700 1$=INKEY$:IF i$="" THEN 700 

710 IF LOWER$(i$)="n" THEN GOTO 590 
720 IF maxanzahl =100 THEN GOSUB 3860:PRINT FN 
at$(20,3);CHR$(7);invon$;" DATEI VOLL !!! ";i 
°300^ : F ^ R n= l 2 000:NEXT n: weiter=l :GOTO 

730 GOSUB 3910 
740 NEXT n 

750 1 **************************************** 
***************** 

‘*. Suchen / Aendern / Loeschen von 

Daten. * 

<56> 770 '***************************************, 
***************** 


<46> 

< 3> 
<50> 
<38> 
<93> 

<38> 

<80> 

<67> 

<29> 

<56> 

<53> 

<90> 


<33> 

<24> 

< 93 > 

<28> 

< 9> 

< 9> 

< 7> 


<47> 

<50> 

<52> 

<75> 


< 11 > 
< 9> 

<95> 


<47> 


<35> 

<29> 

<31> 

< 22 > 

<91> 

<79> 


<57> 

<26> 

<73> 

< 2 > 
<14> 

<32> 

<94> 

<65> 

< 7> 
<25> 

<54> 

< 7> 
<77> 
<25> 
<49> 
<37> 
<36> 
<55> 


780 GOSUB 3860 

7 *° Fo? $( u'l ) = "" ™ EN PRINT FNatS(20,2);CHR$ 
(7);" Sie haben noch keine Datei " 

800 IF e$( 1 , 1 )="" AND a$( 1 )="" AND a$( 2 )="" T 
HEN PRINT FNatS(19,4);"und keine eigenen Kont 
endaten" 

8 i° I Fe$(l,l)="" THEN PRINT FNatS(29,5);"gel 
O 300** " EGR n= * 2000:NEXT n:weiter=l:GOT 

820 FOR n= l TO maxanzahl 

830 FOR a=l TO 7 

840 PRINT window$(a);e$(a,n) 

850 NEXT a 

860 PRINT windowS( 8 );a$( 2 );". ";aS(l) 

870 PRmT FNatS( 8 , 1 );" (S)uchen. / (Ä)ndern. 

/ (L)oschen. /. Blattern ("+CHR$(253)+". "+CH 
RS(252)+ ")"; ' 

880 PRTNT FNatS(65,2);invonS;" Satz.Nr. ";inv 
off$;:PRINT FNat$(69,4); n 

890 PRINT FNatS(8,3);" (M)enue... - 

L(i)sten" 

900 PRINT FNatS(24,5);"(N)euer Verwendungszwe 

910 i$=INKEY$:IF iS="" THEN 910 
920 IF i$<>CHR$(30) AND i$<>CHR$(31) AND i$<> 
"m" AND l$o"ä"AND i$o"s" AND i$o"l" AND iS 
<>"i" AND i$o"n" THEN 910 

930 IF i$=CHR$(31) AND n<>l THEN n=n-l:GOSUB 
3910:GOTO 830 

940 IF i$=CHR$(31) AND n=l THEN n=maxanzahl:G 
OSUB 3910:GOTO 830 

950 IF i$=CHR$ (30) AND nomaxanzahl THEN n=n+ 

1:GOSUB 3910:GOTO 830 

960 IF i$=CHR$(30) AND n=maxanzahl THEN n=l:G 
OSUB 3910:GOTO 830 

970 IF LOWER$(i$)="m" THEN weiter^l:GOSUB 391 

0:GOSUB 3860:GOTO 300 

980 IF LOWERS(i$)="ä" THEN GOSUB 1040 

990 IF LOWERS(i$)="s" THEN GOTO 1140 

1000 IF LOWERS(iS)="1" THEN GOSUB 1210 

1010 IF LOWERS(i$)="i" THEN GOTO 2880 

1020 IF LOWERS(i$)="n" THEN GOSUB 1360 

1030 NEXT n 

1040 FOR a= 1 TO 7 

1050 GOSUB 3860:PRINT FNatS( 8 ,1);invonS;" Mit 
<RETURN> Übernehmen Sie den alten Text. ";in 
vof f S 
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<95> 
<7 4> 


<69> 

<90> 

<19> 

< 88 > 

<49> 

<89> 

<96> 


<48> 
<23> 
< 13 > 


<52> 


<57> 

<32> 

< 21 > 

<59> 

<59> 

<63> 

<56> 

<90> 
<95> 
<30> 
< 2 > 
<89> 
<70> 
< 6 > 

< 4> 
<64> 

< 0 > 
<17> 


<75> 

<69> 

< 3> 
<77> 


<60> 

<75> 

< 22 > 

<40> 

<36> 

<46> 

<89> 

<71> 


<47> 

<7 3> 
<59> 

<44> 

< 9> 

<15> 

<65> 


<97> 

<31> 


1060 PRINT FNatS(8,3);"Bisheriger Text: ";e$( 
a,n):laenge=LEN(e$(a, n)) 

1070 PRINT FNatS(8,5);"- Neuer Text: ";:PR 

INT curonS;:LINE INPUT"",korrekturS:PRINT cur 
off$ 

1080 IF korrektur$="" THEN 1110 
1090 e$(a,n)=korrektur$ 

1100 PRINT w.indow$ (a); SPACES (laenge): PRINT wi 
ndowS(a);e$(a,n) 

1110 NEXT a 

1120 GOSUB 3860:n=n-l 

1130 RETURN 

1140 PRINT FNatS(8,5);CHR$(7);invonS;"Bitte N 
amen eingeben (5 Stellen reichen) :. ";invoff 
$;:PRINT curonS;:INPUT" ",suchS:PRINT curoffS 
1150 such$=LOWER$(LEFT$(such$,5)) 

1160 FOR n =1 TO maXanzahl 

1170 IF LOWERS(LEFTS (e$(1,n),5))=such$ THEN 
PRINT FNatS(5,5);SPACES (60):GOSUB 3910:GOTO 
830 

1180 IF. n=maxanzahl THEN PRINT FNat$(7,5);SP 
ACES(55):PRINT FNatS(23,5);CHR$(7);invonS;" N 
icht gefunden .'! ! ";invoffS:GOTO 1200 
1190 NEXT n 

1200 FOR nn=l TO 1000:NEXT:PRINT FNat$(5,5);S 
PACES (50):GOTO 820 

1210 PRINT FNatS(13,5);invonS;" Datensatz wir 
klich löschen ? (J/N) ";invoff$ 

1220 antwort$=INKEY$:IF antwort$="" THEN 1220 
1230 IF antwort$<>"j" AND antwortSo"n" THEN 
1220 

1240 IF LOWERS(antworts)="j" THEN 1250 ELSE P 
RINT FNatS(10,5);SPACES(40):RETURN 

1250 PRINT FNatS(13,5);CHR$(7);invonS;". 

.... Bitte warten !. ";invoff$ 

1260 IF n=maxanzahl THEN GOTO 1320 
1270 FOR nn=n TO maxanzahl 
1280 FOR a=l TO 7 
1290 e$(a,nn)=e$(a,nn+l) 

1300 NEXT a 
1310 NEXT nn 

1320 FOR a=l TO 7:e$(a,maxanzahl)="":NEXT a 
1330 IF n=maxanzahl THEN n=n-2 
1340 maxanzahl=maxanzahl-l:PRINT FNatS(10,5); 
SPACES(40) 

1350 RETURN 

1360 GOSUB 3860:PRINT FNatS(3,2);"Fügt den ne 
uen Text in allen Datensätzen ein, die den Al 
ttext enthalten!" 

1370 PRINT FNat$(5,3);invonS;" Alter Text: 
invoffS;:PRINT curonS;:LINE INPUT" ",alt$ 

1380 PRINT FNatS(5,5);invonS;" Neuer Text: "; 
invoffS;:LINE INPUT" ",neu$:PRINT curoffS 
1390 FOR nn=l TO maxanzahl 

1400 IF LEFTS(e$(6,nn),LEN(alt$))=al t$ AND LE 
N(e$(6,nn))>LEN(alt$) THEN combine$=RIGHT$(e$ 
(6,nn),LEN(e$(6,nn))-LEN(alt$)):e$(6,nn)=neu$ 
+combine$:GOTO 1420 

1410 IF e$(6,nn)=alt$ THEN e$(6,nn)=neu$ 

1420 NEXT nn 

1430 GOSUB 3860:GOSUB 3910:RETURN 

1440 **************************************** 

****************** 

1450 '*. Drucken von Daten. 


1460 '*************************************** 
****************** 

1470 PRINT cls$:rahmolin=l:GOSUB 2500 

1480 PRINT FNabS(8,5);CHRS(7);"Legen Sie bitt 

e Formulare ein und schalten Sie den Drucker 

ein. ":FOR n=l TO 2000:NEXT n 

1490 PRINT FNabS(27,10);invon$;" Weiter mit T 

astendruck ";invoffS 

1500 i$=INKEY$:IF i$="" THEN 1500 

1510 LPRINT CHR$(2 7);CHR$(56);CHR$(27);CHR$(7 

1) 

1520 PRINT FNabS(25,14);CHR$(7);" Justieren S 
ie das Formular ! " 

1530 PRINT FNabS(27,18);invonS;" Weiter mit T 

astendruck ";invoffS 

1540 i$=INKEY$:IF i$ = "" THEN 1540 

1550 FOR n=2 TO 19:PRINT FNabS(2,n);SPACES(70 

) :NEXT:PRINT FNab$(2,8);". (Ü)ber 

Weisungen oder (Lastschriften ?. :.. ";:INPU 
T"",antwortS 

1560 IF LOWER$(antwort$)="l" THEN vers=0:vers 
1=0 ELSE vers=l:versl=3 

1570 PRINT FNabS(16,10);"Nummer des ersten zu 
druckenden Datensatzes ? ";:INPUT"",anfang:I 
F anfang=0 THEN anfang=l 


<55> 

<55> 

<56> 

<59> 

< 51 > 
<96> 
<47> 

< 36> 
<55> 

< 66 > 
<45> 
<32> 
<2 3> 
<75> 

<41> 

<58> 

<47> 

< 7> 
<53> 
< 18 > 
<59> 
< 88 > 

< 68 > 

< 9> 
<50> 
<40> 

<7 4> 
<89> 
<54> 

<83> 


1580 FOR n=2 TO 19:PRINT FNabS(2,n);SPACES(70 
):NEXT 

1590 PRINT FNabS(27,10);invonS;" Daten werden 
gedruckt. ";invoffS 

1600 PRINT FNabS(27,12);invonS;" Datensatz Nr 
.: ";invoffS 

1610 PRINT FNabS(24,18);CHR$(7);invonS;" Weit 
er jeweils mit Tastendruck ";invoffS 
1620 FOR n=anfang TO maxanzahl 
1630 PRINT FNabS(45,12);n 

1640 LPRINT CHR$(27);CHR$(14);TAB (l);e$(l,n) 
1650 LPRINT 

1660 LPRINT CHRS(27);CHR$(14);TAB (l+vers);e$ 

(2,n); 

1670 LPRINT TAB (20-vers);e$(3,n) 

1680 LPRINT 

1690 LPRINT CHR$(27);CHR$(14);TAB (l);e$(5,n) 
1700 LPRINT 

1710 LPRINT CHRS(27);CHR$(14);TAB (16-versl); 
e$(4,n) 

1720 LPRINT 

1730 LPRINT CHRS(27);CHR$(14);TAB (l);eS(6,n) 
1740 LPRINT 

1750 LPRINT CHRS(27);CHR$(14);TAB (l);e$(7,n) 
1760 LPRINT 

1770 LPRINT CHR$(27);CHR$(14);TAB (l);a$(l) 
1780 LPRINT 

1790 LPRINT CHRS(27);CHRS(14);TAB (l+vers);a$ 
(2) 

1800 FOR b=l TO 10:LPRINT:NEXT b 
1810 i.$ = INKEY$: IF i$ = "" THEN 1810 
1820 NEXT n 

1830 PRINT cls$:PRINT FNabS(22,10);CHRS(7);in 
vonS;" Datensatz fertig gedruckt ! ";invoffS 
1840 FOR n=l TO 1500:NEXT n 
1850 weiter=l:rahmolin=0:GOTO 170 
1860 1 *************************************** 
******************* 

1870 '*. Laden von Daten. 


<60> 1880 '*************************************** 
****************** 

<61> 1890 maxanzahl=0:format=0 

<27> 1900 GOSUB 3860:PRINT FNatS(10,2);CHR$(7);" W 
elchem Namen hat die Datei ?.. ";:PRINT curon 
S;:INPUT"",name$:PRINT curoffS:name$=name$+". 
DAT" 

1910 OPEN "l",i,name$ 

1920 FOR n=l TO 100 
1930 FOR a=l TO 7 
1940 INPUT #1,e$(a,n) 

1950 NEXT a 
1960 NEXT n 
1970 CLOSE 

1980 FOR n=l TO 100:IF e$(l,n)="" THEN maxanz 
ahl=n-l:GOTO 2010 

1990 IF e$(1,100)<>"" THEN maxanzahl=100 
2000 NEXT n 

2010 PRINT FNat$(14,4);CHR$(7);invonS;" DATEN 
GELADEN !!! ";invoffS 

2020 FOR n=l TO 1000:NEXT:weiter=l:GOTO 300 
2030 '*************************************** 
****************** 

2040 ' *. Sichern von Daten. 


<36> 

<48> 

<29> 

<83> 

<17> 

<64> 

< 20 > 

<64> 

<9 3> 
<2 9> 
<26> 

<49> 
< 30> 

<37> 

<36> 

<17> 


< 10 > 

<49> 

<30> 

<52> 

<89> 

<37> 

<92> 

<48> 

<73> 
<57> 
< 8 > 

< 11 > 

<14> 


2050 '*************************************** 
****************** 

2060 GOSUB 3860:PRINT FNatS(2,2);CHR$(7);". U 
nter welchem Namen soll die Datei gespeichert 
werden ? ":PRINT FNatS(20,4);"";:PRINT curon 
$;:INPUT"",name$:name$=name$+".DAT":PRINT cur 
off$ 

2070 OPEN "O",1,name$ 

2080 FOR n=l TO 100 
2090 FOR a=l TO 7 
2100 WRITE #1,e$(a,n) 

2110 NEXT a 
2120 NEXT n 
2130 CLOSE 

2140 PRINT FNatS(18,5);CHR$(7);invonS;" DATEN 
GESICHERT !!! ";invoffS 
2150 FOR n=l TO 1000-.NEXT n 
2160 weiter=l:GOTO 300 

2170 ' ************************************** 
****************** 

2180 ' *. PROGRAMMENDE. 


2190 ' ************************************** 
****************** 
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<52> 2200 GOSUB 3860:PRINT FNatS(10,3);"Haben Sie 
Ihre neuen / veränderten Daten gesichert ? (J 
/N)" 

<40> 2210 i$=INKEY$:IF i$ = "" THEN 2210 
<10> 2220 IF i$<>" j" AND i$o"n" THEN 2210 
<22> 2230 IF LOWER$(i$)="n" THEN 300 ELSE PRINT cl 
s$ 

<34> 2240 FOR n=l TO 20:PRINT FNat$(1,n);invon$;"P 
ROGRAMM UND DATEN WERDEN GELOESCHT":NEXT n:PR 
INT invoff$:NEW 

< 4> 2250 '*************************************** 

************** 

<35> 2260 Texte fuer. Eingabe definieren - L 

astschrift.. * 

<10> 2270 '*************************************** 

***************** 

<38> 2280 erstzeil$="Zahlungspflichtiger: Name, Vo 
rname/Firma (max. 27 Stellen) 

<57> 2290 konto$="Konto-Nr. des Zahlungspflichtige 
n" 

<41> 2300 leitzahl$="Bankleitzahl " 

<15> 2310 bank$="bei (Kreditinstitut)" 

<67> 2320 betrag$="Betrag: DM,Pf" 

<46> 2330 zwecks="Verwendungszweck (Mitteilung f.d 
. Zahlungspfl./2 x 27 Stellen" 

<79> 2340 eingabS(l)=erstzeil$:eingab$(2)=konto$:e 
ingab$(3)=leitzahl$:eingabS(4)=bank$:eingabS( 
5)=betrag$:eingabS(6)=zweck$:eingabS(7)=zweck 

< 1> 2350 RETURN 

< 9> 2360 ' ************************************** 

*************** 

<12> 2370 ' ***. Texte fuer Eingabe definieren - U 
eberweisung *** 

<15> 2380 1 ************************************** 

*************** 

<56> 2390 erstzeil$="Empfänger: Name, Vorname/Firm 
a (max. 27 Stellen)" 

<92> 2400 konto$="Konto-Nr. des Empfängers" 

<74> 2410 leitzahl$="Bankleitzahl" 

<20> 2420 bank$="bei (Kreditinstitut)" 

<72> 2430 betragS-"Betrag: DM,Pf" 

<80> 2440 zweck$="Verwendungszweck (nur für Empfän 
ger )/2 x 27 Stellen" 

<84> 2450 eingabS(1)=erstzeil$:eingabS(2)=konto$:e 
ingabS(3)=leitzahl$:eingabS(4)=bank$:eingabS( 

5) =betrag$ : eingabS (6) =zweck$ : eingabS (7) =zweck 
$ 

< 6> 2460 RETURN 

<23> 2470 '*************************************** 

********************* 

<70> 2480 '***. Rahmen zeichnen.. 

.. *** 

<29> 2490 1 *************************************** 

********************* 

<16> 2500 PRINT cls$ 

<55> 2510 PRINT CHR$(134);STRINGS(88,138);CHR$(140 
<71> 2520 FOR i%=l TO 27 

<53> 2530 PRINT CHR$(133);SPACES(88);CHR$(133) 

<26> 2540 IF rahmolin=l THEN 2560 ELSE IF i%<>21 T 
HEN 2560 

<32> 2550 PRINT CHR$(135);STRINGS(88,138);CHR$(141 
<12> 2560 NEXT 

<89> 2570 PRINT CHR$(131);STRINGS(88,138);CHR$(137 
<14> 2580 RETURN 

<31> 2590 '*************************************** 

********* 

<35> 2600 ' *. MA S K E. 


< 9> 2610 '*************************************** 

********* 

<65> 2620 versatz=-50:versatzl=-3 

<45> 2630 PRINT FNab$(4,1);CHR$(150);STRINGS(70,15 
4);CHR$(156) 

< 3> 2640 PRINT FNab$(4,2);CHR$(149);SPACES(70);CH 

RS (149) 

< 5> 2650 PRINT FNabS(4,3);CHR$(147);STRING$(70,15 

4);CHR$(153) 

<78> 2660 FOR n=l TO 2 

< 2> 2670 versatz=versatz+50 

<71> 2680 PRINT FNabS(4+versatz,4);CHR$(150);STRIN 
G$(20,154);CHR$(156) 

<58> 2690 PRINT FNabS(4+versatz,5);CHR$(149);SPACE 
$(20);CHR$(149) 


<43> 2700 PRINT FNabS(4+versatz,6);CHR$(147);STRIN 
G$(20,154);CHR$(153) 

<46> 2710 NEXT n 

<65> 2720 PRINT FNabS(4,7);CHR$(150);STRINGS(70,15 
4);CHR$(156) 

<23> 2730 PRINT FNabS(4,8);CHR$(149);SPACES(70);CH 
R$(149) 

<25> 2740 PRINT FNabS(4,9);CHR$(147);STRINGS(70,15 
4);CHRS(153) 

<36> 2750 PRINT FNab$(4+versatz-7,10);CHRS(150);ST 
RING$(25,154);CHRS(156) 

<27> 2760 PRINT FNabS(4+versatZ-7,11);CHRS(149);SP 
ACE$(25);CHRS(149) 

<51> 2770 PRINT FNabS(4+versatz-7,12);CHRS(147);ST 
RINGS(25,154);CHRS(153) 

<54> 2780 PRINT FNabS(4,13);CHRS(150);STRINGS(70,1 
54);CHRS(156) 

<15> HR$(149) NT FNabS ( 4 ' 14 ) ;CH R$( 14 9) ; SPACES( 7 °);C 

<11> 2800 PRINT FNabS(4,15);CHRS(149);SPACES(70);C 
HR$(149) 

<15> 2810 PRINT FNabS(4,16);CHR$(147);STRINGS(70,1 
54);CHRS(153) 

<23> 2820 PRINT FNabS(4,17);CHR$(150);STRINGS(70,1 
54);CHR$(156) 

<83> 2830 PRINT FNabS(4,18);CHR$(149);SPACES(70);C 
HR$(149) 

<87> 2840 PRINT FNabS(4,19);CHRS(147);STRINGS(70,1 
54);CHRS(153) 

<11> 2850 RETURN 

<52> 2860 '*************************************** 
**************** 

<36> 2870 '*. Listen drucken. 


<58> 2880 '*************************************** 
**************** 

<90> 

< 15 > 


Liste der Lastschr 
Liste der Bankverb 
Daten alphabetisch 


2890 GOSUB 3860 
2900 PRINT FNat$(15,2);"1 
iften/Überweisungen" 

<31> 2910 PRINT FNat$(15,3);"2 
indungen " 

<94> 2920 PRINT FNatS(15,4);"3 
sortieren" 

<58> 2930 i$=INKEY$ 

<30> 2940 IF i$o"l" AND i$<>"2" AND i$<>"3" THEN 
2930 

<91> 2950 IF i$="l" AND format=0 THEN GOSUB 3860:P 

RINT FNatS (15,3) ;CHR$ (7) ;invon$; ". B 

itte warten !. ";invoff$:GOSUB 3500 

<47> 2960 IF i$="l" THEN ZONE(80):posl=6:locl=28:p 
os2=7:log2=56:pos3=5:loc3=73:u$="####.##":ver 
s=2 

<66> 2970 IF i$="2" THEN ZONE(80):posl=3:locl=29:p 
os 2=4: löc2=39 :poS3=2: loc3=70: u$="####jf #####«: 
vers=3 

<78> 2980 IF iS="3" THEN GOSUB 3860:PRINT FNatS(25 
,2);"Daten werden sortiert.":PRINT FNatS(28,4 
);CHRS(7);invon$;" Bitte warten ! ";invoff$:G 
OTO 3370 

<51> 2990 PRINT cls$ 

<24> 3000 PRINT FNabS(18,10);CHRS(7);invonS;" Ausg 
abe auf (B)ildschirm oder (D)rucker ? invof 

<31> 3010 i$ = INKEY$: IF i$="" AND i$o"b" AND i$<>" 
d" THEN 3010 

< 3> 3020 IF LOWERS(i$) ="b" THEN druck=l ELSE druc 

k=o 

<16> 3030 PRINT cls$ 

<22> 3040 monats$=UPPER$(monat$)+SPACE$(37-LEN(mon 
at$)) 

<77> 3050 PRINT invonS;". Las 

tschriften Monat. ";monats$; 

<84> 3060 IF LEN(u$)=10 THEN PRINT".. Name. 

. BLZ. Bank. 

. Kontonummer.. ";invoff$ 

<22> 3070 IF LEN(U$)=7 THEN PRINT".. Name. 

. Verwendungszweck. 

. Summe.. invoff$.. 

< 2> 3080 IF druck-0 THEN LPRINT CHRS(27);CHRS(56) 

;CHR$(27);CHR$(14);"... Lastschriften Monat " 

;UPPERS(monatS):LPRINT 

<93> 3090 IF druck=0 AND LEN(u$)=6 THEN LPRINT TAB 
(1) "Lfd.Nr.";TAB(12) "Name";TAB (34) "Verwen 
dungszweck";TAB(74) "Summe" 

<34> 3100 IF druck=0 AND LEN(U$)=10 THEN LPRINT TA 
B(1) "Lfd.Nr.";TAB(12) " Name";TAB (34)"BLZ"; 
TAB(46) "Bank";TAB(70)"Kontonummer" 
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<60> 3110 IF druck=0 THEN LPRINT STRINGS(80L 
PRINT 

<43> 3120 FOR n=l TO maxanzahl 
<62> 3130 zaehler=zaehler+l 

<53> 3140 IF RIGHTS(e$(4,n),2)=".-" THEN e$(4,n)=e 
$ (4, n)+" - " 

<42> 3150 a=LEN(e$(4,n)) 

<43> 3160 PRINT e$(l,n);" ";TAB (loci) e$(posl,n); 

" ";TAB (loc2) e$(pos2,n);" ";TAB (loc3) USIN 
G u$;VAL (e$(pos3,n)) 

<48> 3170 IF druck=0 THEN LPRINT USING "##";n;:LPR 
INT " ";LEFTS(e$(1,n),23);" ";TAB (locl+vers) 
e$(posl,n);" ";TAB(loc2+vers) e$(pos2,n);" " 
;TAB (loc3) USING uS;VAL(e$(pos3,n)) 

<63> 3180 summe=summe+VAL(e$(5,n)) 

<57> 3190 IF druck=0 THEN GOTO 3210 

<83> 3200 IF zaehler=25 THEN zaehler=0:GOSUB 3280 

<37> 3210 NEXT n 

<25> 3220 IF LEN(u$)=10 THEN zaehler=0:GOTO 3260 
<88> 3230 zaehler=0:v$="#####.:PRINT STRING$(79 
,"-"):PRINT TAB(46) USING v$;summe2PRINT SP 
C(8) USING v$;summel;:PRINT SPC(2) USING v$;s 
umme:PRINT TAB(46) STRINGS(35, " = ") 

<19> 3240 IF druck=0 THEN LPRINT:LPRINT STRING$(80 

f I» „ *1 ) 

<21> 3250 IF druck=0 THEN LPRINT TAB(49) USING v$; 
summe2;:LPRINT SPC(9) USING v$;summel;:LPRINT 
SPC(l) USING v$;summe:LPRINT TAB(48) STRINGS 
(33,"=") 

<27> 3260 PRINT FNabS(-5,26);CHR$(7);invonS;". 

. Ende der Liste. 

. ";invoff$ 

<64> 3270 summe=0:FOR n=l TO 3000: NEXT n:GOTO 331 
0 

< 4> 3280 PRINT FNab$(-5,26);CHR$(7);invonS;". 

. Weiter mit Tastendruck. 

. ";invoff$ 

<54> 3290 i$=INKEY$:IF iS-"" THEN 3290 

<89> 3300 FOR nn=l TO 27:PRINT FNabS(0-5,nn);SPACE 
$(80):NEXT nn:PRINT FNabS(-5,0);"":RETURN 

<84> 3310 PRINT FNabS(-5,26);CHR$(7);invonS;". 

. Weiter mit Tastendruck. 

. ";invoff$ 

<40> 3320 i$=INKEY$:IF i$="" THEN 3320 

<72> 3330 ZONE(90):GOTO 170 

<13> 3340 **************************************** 
********* 

<34> 3350 '*. SHELL-METZNER-SORT. 

<19> 3360*'i*****i***i**************************** 
********* 

<98> 3370 me=maxanzahl 

<72> 3380 me=INT(me/2):IF me=0 THEN GOTO 300 
<37> 3390 j=l:k=maxanzahl-me 
<81> 3400 l=j 

< 9> 3410 l=i+me 

<13> 3420 IF e$(l,i)<=e$(l,l) THEN 3480 
<21> 3430 FOR a=l TO 7 

<95> 3440 w$=e$(a,i):e$(a,i)=e$(a,1):e$(a,1)=w$ 

< 9> 3450 NEXT a 
<24> 3460 i=i-me 

<86> 3470 IF i>0 THEN 3410 
<97> 3480 j=j+l 

<40> 3490 IF j>k THEN 3380 ELSE 3400 
<41> 3500 **************************************** 
*************** 

<43> 3510 '*.... Daten fuer Ausgabe/Berechnung vor 
bereiten. * 

<47> 3520 **************************************** 
*************** 

<45> 3530 stringn=5:stringl=37:add=0 
<82> 3540 FOR y=l TO 2 

<72> 3550 add=0:stringn=stringn+l:stringl=stringl- 
12 

<63> 3560 FOR n=l TO maxanzahl 

<24> 3570 IF e$(stringn,n)="" OR e$(stringn,n)=" " 
THEN 3710 

<17> 3580 IF RIGHTS(e$(stringn,n),1)="-" OR MID$(e 
$(stringn,n),LEN(e$(stringn,n))-2,1)="." THEN 
3610 

<66> 3590 IF MID$(e$(stringn,n),LEN(e$(stringn,n)) 
-5,1)="." AND MID$(e$(stringn,n),LEN(e$(strin 
gn,n))-2,l)="." THEN 3710 
<53> 3600 IF MID$(e$(stringn,n),LEN(e$(stringn,n)) 
-2,1)<>"." THEN 3710 

<97> 3610 add=add+VAL(RIGHTS(e$(stringn,n),5)) 

<71> 3620 IF stringn=7 AND LEN(e$(7,n))>stringl TH 
EN 3710 

<90> 3630 IF LEN(e$(stringn,n))=stringl THEN 3710 
<45> 3640 FOR x=5 TO LEN(e$(stringn,n)) 


<26> 
< 2 > 


< 22 > 

< 10 > 

<27> 

<55> 

<47> 

<59> 

<75> 

<57> 

<24> 

<89> 

<30> 

< 1 > 


<35> 

<34> 

< 2 > 
<90> 
< 11 > 
<14> 
<17> 
<51> 

<18> 

<26> 

<29> 

< 4> 
<74> 
<7 4> 

< 1 > 
<34> 
<43> 
<77> 
< 20 > 
<28> 

<13> 

< 86 > 

<15> 


< 14> 
<63> 
<62> 
<97> 
<49> 

< 5> 
<42> 

<7 4> 
<67> 

< 9> 
<7 3> 
<79> 


<75> 

<61> 

<53> 

<49> 


< 34> 
<46> 
<54> 
<85> 
<41> 
<96> 

< 9> 

< 71 > 
<38> 


3650 IF x+2>LEN(e$(stringn,n)) THEN 3710 
3660 IF ASC(MID$(e$(stringn,n),(x+l),l))<58 A 
ND MID$(e$(stringn,n),x,l)=" " THEN GOTO 3670 
ELSE 3700 

3670 combl$=LEFT$(e$(stringn,n),x)+SPACE$(str 
ingl-LEN(e$(stringn,n))) 

3680 comb2$=RIGHT$((e$(stringn,n)),LEN(e$(str 
ingn,n))-x) 

3690 e$(stringn,n)=combl$+comb2$:GOTO 3710 
3700 NEXT X 
3710 NEXT n 

3720 IF stringn=6 THEN summe2=add ELSE summel 
=add 

3730 NEXT y 

3740 format=l:RETURN 

3750 '*************************************** 
********* 

3760 '*. Abfangen von Fehlern. 

. * 

3770 **************************************** 
********* 

3780 GOSUB 3860:PRINT FNatS(18,1);"... Fehler 
Nr. ";ERR;" in Zeile ";ERL 
3790 PRINT FNatS(21,3);" Versuchen sie es noc 
h einmal." 

3800 PRINT CHR$(7);FNat$(24,5);invonS;" Es ge 
ht gleich weiter! ";invoff$ 

3810 FOR n=l TO 3500:NEXT n 
3820 weiter=l:RESUME 300 

3830 ' *********************************** 
3840 ' **** EINGABEFENSTER LOESCHEN ***** 

3850 ' *********************************** 
3860 FOR X=1 TO 5:PRINT FNatS(1,x);STRINGS(75 
," "):NEXT 
3870 RETURN 

3880 ' *********************************** 
3890 ' **** WERTEFENSTER LOESCHEN ******* 

3900 ' *********************************** 
3910 FOR X=1 TO 8 

3920 IF x=2 OR x=3 OR. x=5 THEN 3950 
3930 PRINT windowS(x);STRINGS(50," ") 

3940 GOTO 3960 

3950 PRINT WindowS(X);STRINGS(15," ") 

3960 NEXT X 
3970 RETURN 

3980 <*************************************** 

***** 

3990 '*.... Eigene Kontendaten laden.... 

• * 

4000 '*************************************** 
***** 

4010 GOSUB 3860:PRINT CHR$(7);FNatS(2,2);"... 

. Geben Sie bitte einen Namen für die 

Datei an";:PRINT curonS;:INPUT".. ",datei$:PR 
INT curoffS 

4020 datei$=datei$+".TST" 

4030 OPEN "I",1, dateiS 
4040 FOR n=l TO 2 
4050 INPUT #1,a$(n) 

4060 NEXT n 
4070 CLOSE 

4080 PRINT FNatS(18,5);CHR$(7);invonS;" Daten 
sind geladen ! ";invoff$:weiter=2 
4090 FOR n=l TO 2000:NEXT:GOTO 530 
4100 '*************************************** 
**** 

4110 '*.... Eigene Kontendaten sichern. 

* 

4120 **************************************** 
**** 

4130 GOSUB 3860:PRINT CHR$(7);FNatS(13,1);inv 
on$;" Wollen Sie die Datei abspeichern ?. < J 
/N> ";invoff$ 

4140 i$=INKEY$:IF iS="" THEN 4140 
4150 IF i$<>"j" AND iS<>"n" THEN 4140 
4160 IF UPPERS(iS)="N" THEN weiter=l:RETURN 
4170 PRINT FNatS(13,3);"Geben Sie bitte einen 
Namen für die Datei an ";:PRINT curonS;:INPU 
T"",dateiS:PRINT curoffS 
4180 datei$=datei$+".TST" 

4190 OPEN "0",1,dateiS 
4200 FOR n=l TO 2 
4210 WRITE #l,a$(n) 

4220 NEXT n 
4230 CLOSE 

4240 PRINT FNatS(18,5);CHRS(7);invonS;"Daten 
sind gespeichert !";invoff$ 

4250 FOR n=l TO 3000:NEXT 
4260 weiter =1:RETURN 
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Dreh’ dir einen 


Eine Joyce-Version des beliebten Ratespiels 
“Glücksrad“ 

Wer in der CPC 6/7’91 wieder einmal neidisch aufseine CPC-Kollegen 
geschaut hat, kann seine Nerven jetzt schonen, denn nun gibt es auch für 
den PCW das Spiel “Glücksrad“. 


Da das Prinzip dieses Spiels allgemein 
bekannt sein dürfte und auf dem PCW 
recht einfach zu spielen ist, wollen wir 
nur einige kurze Anmerkungen zu die¬ 
ser PCW-Version machen. Im übrigen 
wurden die Regeln und Bereiche mög¬ 
lichst an die gleichnamige TV-Show 
angepaßt. 

Wie geht’s? 

Zu Beginn des Spiels müssen Sie erst 
einmal Ihre Namen in den Computer 
eingeben. Es können maximal drei Per¬ 
sonen teilnehmen; sind es weniger, 
muß nur <RETURN> bei einer er¬ 
neuten Frage nach dem Namen ge¬ 
drückt werden. Nach einem weiteren 
Tastendruck werden die Begriffe (ins¬ 
gesamt bisher 120) eingeladen und der 
Spielbildschirm aufgebaut. 

Wie Sie sehen, ist der Bildschirm in 
verschiedene Fenster aufgeteill. 

• Links oben befindet sich das Aus¬ 
wahlmenü, darunter die Felder für die 
Eingabe, die Ausgabe von Meldungen 
und das “Glücksrad“. 


• Rechts oben wird neben der aktuel¬ 
len Spielrunde der gesuchte Begriff mit 
Bereich und Länge angezeigt. Darin 
eventuell enthaltene Leerstellen zählen 
mit. 

• In der Mitte kann auf Wunsch mit der 
Taste <5> ein Fenster mit einem klei¬ 
nen Hilfstext eingeblendet werden. Er 
enthält nur einen kurzen Index, der an- 
zeigl, um was es sich bei dem gesuch¬ 
ten Gegenstand handeln kann. 

• Rechts unten stehen die Namen mit 
den Punkten der laufenden Runde und 
dem Gesamtpunktestand jedes Spie¬ 
lers. Der ausgefüllte Kreis vor einem 
Namen kennzeichnet den Spieler, der 
gerade an der Reihe ist. Ein Zufallsge¬ 
nerator entscheidet, wer als erster raten 
darf. 

Das Spiel ist leicht erklärt 

Ist die Initialisierung des Programms 
abgeschlossen, finden Sie sich im 
Hauptmenü wieder. Hier haben Sie fol¬ 
gende Auswahlmöglichkeiten: 


Drehen 

Durch Druck auf die Taste < I > wird 
das Glücksrad in Bewegung gesetzt. 
Der Zufall bestimmt nun, ob auf dem 
Glücksrad ein Betrag, um den gespielt 
wird, oder aber eines der unten erläu¬ 
terten Ereignisse erscheint. Solange ir¬ 
gendwelche Beträge angezeigt werden, 
verläult das Spiel nach den vorgege¬ 
benen Regeln: Es muß ein Konsonant 
eingegeben werden, der zur Vervoll¬ 
ständigung des Wortes dient. Ist der 
cingegebene Konsonant im gesuchten 
Begriff enthalten, erscheint er dement¬ 
sprechend oft im rechten oberen Fen¬ 
ster. Die daraus entstandenen Punkte 
werden dem Spieler auf seinem Konto 
gutgeschrieben. Ist der eingegebene 
Konsonant nicht im Begriff vorhanden, 
kommt der nächste Spieler an die Rei¬ 
he. Wird statt des Konsonanten ein Vo¬ 
kal eingegeben oder wurde der Buch¬ 
stabe bereits gewählt, erscheint eine 
entsprechende Fehlermeldung, und das 
Raterecht geht auf den nächsten über. 
Beim Drehen können noch folgende 
besonderen Ereignisse aultreten: 

• Aussetzen: Der folgende Spieler 
kommt an die Reihe. 

• Bankrott: Die in dieser Runde er¬ 
spielten Punkte werden wieder abgezo¬ 
gen, und der nächste ist am Zug. 

• Extra-Dreh: Er kann eingesetzt wer¬ 
den, um das Raterecht zu behalten, 
wenn man es sonst abgeben müßte. 
Macht man von ihm Gebrauch, verfällt 
er sofort, ansonsten verfällt er am Ende 
der Runde. 

• Bonus: Dem Gesamtkonto des Spie¬ 
lers werden 1000 Bonuspunkte gutge¬ 
schrieben, die ihm auch im Falle eines 
Bankrotts nicht mehr abgezogen wer¬ 
den können. Der Bonus wird höchstens 
einmal je Runde vergeben. 

Vokal kaufen 

Wer einen Vokal kauft, muß minde¬ 
stens 300 Punkte auf dem aktuellen 
Rundenkonto haben, sonst erscheint 
eine Fehlermeldung, und Sie finden 
sich im Hauptmenü wieder. Für diesen 
Betrag kann jetzt ein Vokal bezie¬ 
hungsweise Umlaut eingegeben wer¬ 
den, der ebenso wie bei den Konsonan¬ 
ten an den betreffenden Stellen im Be¬ 
griff angezeigt wird. Ein Vokal kostet 
immer 300 Punkte, egal ob oder wie oft 
er vorhanden ist. Ist er nicht enthalten, 
kommt der nächste Spieler zum Zuge. 

Lösen 

Glaubt der Spieler, der an der Reihe 
ist, den gesuchten Begriff erraten zu 
haben, kann er ihn jetzt eingeben. Da¬ 
bei ist es egal, ob Groß- oder Klein¬ 
schreibung verwendet wird. Eventuell 
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Pech gehabt. Wie in der Fernsehshow, kann es auch hier Vorkommen, daß Sie Bankrott gehen 


10/11*91 CPC 111 



































PCW 


vorhandene Leerstellen müssen natür¬ 
lich mit eingegeben werden. 

Ist die Lösung falsch, kann der nächste 
Spieler einen Vesuch wagen. 

Stimmt die Lösung, erhält der Spieler 
seine in der aktuellen Runde erzielten 
Punkte — mindestens jedoch 300 — auf 
sein Gesamtkonto aufaddiert. Die an¬ 
deren Spieler gehen natürlich leer aus. 
Falls alle Buchstaben des Begriffs ein¬ 
zeln eingegeben wurden, erscheint die 
Meldung “Alles erraten“, und der 
Spieler, der den letzten Buchstaben ge¬ 
wählt hat, gewinnt die Runde. 
Vor Beginn einer neuen Runde werden 


die vorhandenen Daten aus Spcicher- 
platzgründen kurz im Laufwerk M: 
“zwischengelagert“. Anschließend 
wird der nächste Begriff ausgelost, und 
das Spiel kann fortgesetzt werden. 
Spielende 

Das Spiel wurde so angelegt, daß es 
den Mitspielern selbst überlassen 
bleibt, wann sie aufhören möchten. Ist 
dies der Fall, berechnet der Computer 
die Reihenfolge und gibt den Sieger mit 
dessen Gesamtpunktzahl aus. 

Hilfe 

Hier können Informationen über den 
aktuellen Themenbereich, dem das 


Wort zugeordnet ist, abgerufen 
werden. 

Und nun viel Spaß beim Raten und Te¬ 
sten wünschen 

Reinhard Preßl/Michael Spangler/rs 


Dieses Programm isl in Mullanl-BA SIC geschrieben. 
Es bestehr aus zwei Programmteilen. die nacheinander 
eingegeben und auf Diskelle abgespeichert werden 
müssen. Das Hauptprogramm sollte unter dein Namen 
GLÜCKRAD.MAS und das Unterprogramm mit dem 
Namen BEGRIFFE. BAS auf Diskette gespielt werden. 
Nun steht das Spiel zur Verfügung und kann unter 
CP/M mit A>BASIC GLÜCKRAD < ENTER > und 
unter Mallard-BASIC mit RUN"GLÜCKRAD", 
gefolgt von < ENTER >, gestand werden. 


LISTING >GLÜCKRAD<, REMARK = >’<. 


<25> 640 DATA 1A,1B,77,2B,77,2B,10,F8 



<25> 650 DATA AF,C9,AF,18,02,3E,02,32 

<76> 10 ***************************************** 


<63> 660 DATA CO,Fl,11,D8,Fl,CD,50,Fl 

<31 > 20 '*. * 


<22> 670 DATA 3A,BF,Fl,3D,C8,11,E8,Fl 

<91 > 30 '*. GLÜCKSRAD. * 


<81> 680 DATA CD,5C,Fl,21,FC,FF,19,01 

<33> 40 '*. * 


<13> 690 DATA 08,00,ED,B8,AF,12,1B,12 

<25> 50 '*. Eine JOYCE-Version des. * 


<63> 700 DATA 1B,12,1B,12,1B,C9,21,C9 

<60> 60 bekannten Ratespiels. * 


< 3> 710 DATA Fl,ED,4B,BF,Fl,ED,5B,BD 

<36> 70 ’*. * 


< 3> 720 DATA Fl,D5,E5,15,05,05,CC,92 

<20> 80 ' *. Copyright (c) 07/1991 . * 


<60> 730 DATA Fl,14,CD,92,Fl,14,04,04 

<66> 90 Reinhard Preßl & Michael Spangier. * 


<45> 740 DATA CC,92,Fl,El,11,10,00,19 

<18> 100 '*. & CPC International * 


<40> 750 DATA Dl,IC,OD,20,E4,ED,53,BD 

<45> 110 ' *. 8500 Nürnberg-Laufamholz. * 


<64> 760 DATA Fl,C9,7B,FE,5A,DO,7A,FE 

<87> 120 '*... * 


<65> 770 DATA 20,DO, C5 ,D5,E5,16, 00,07 

<96> 130 '**************************************** 


<91> 780 DATA 17,17,17,6F,7A,CE,B6,67 

<26> 140 ' 


<63> 790 DATA 7E,23,66,6F,EB,29,29,19 

<88> 150 CLEAR 


<56> 800 DATA 29,EB,El,01,08,00,ED,BO 

<75> 160 OPTION RUN 


<40> 810 DATA Dl,CI,C9,00,00,00,00,00 

<32> 170 ' 


< 4> 820 DATA 00,00,00,00,00,00,00,00 

<19> 180 1 * Maschinencode für Superscript 


<42> 830 DATA 00,00 

< 36> 190 ' 


<33> 840 1 

<87> 200 MEMORY SHEFFF 


<91> 850 ' * Initialisierung 

<63> 210 FOR adr=&HF000 TO &HF1C9 


<37> 860 1 

<29> 220 READ byteS:v=VAL("&H"+byteS):s=s+v:POKE a 


<68> 870 script=&HF000 

dr, v 


<56> 880 esc$=CHR$(27) 

<41> 230 NEXT 


<30> 890 cls$=esc$+"E"+esc$+"H" 

<52> 240 IF s<>55722! THEN PRINT "DATAFEHLER!! !" :E 


<74> 900 curd$=esc$+"e" 

ND 


<47> 910 curw$=esc$+"f" 

<29> 250 ’ 


<97> 920 inv$=esc$+"p" 

<92> 260 DATA 6E, .1A, 67,2D, 25,22 , BD, Fl 


<74> 930 noinv$=esc$ + "q'' 

<70> 270 DATA 69,60,7E,B7,C8,4F,06,00 


<73> 940 statS=esc$+”l" 

<56> 280 DATA 32,BC,Fl,23,7E,23,66,6F 


<10> 950 nostat$=esc$+"0" 

<63> 290 DATA 11,E9,Fl,ED,B0,01,26,F0 


<43> 960 hell$=esc$+"c"+CHR$(0)+esc$+"b"+CHR$(63) 

<58> 300 DATA CD,5A,FC,E9,00,C9,3A,BC 


<54> 970 dkl$=esc$+"c"+CHR$(63)+esc$+"b"+CHR$(0) 

< "/> 310 DATA Fl ,47,21,E9,F1,7E,FE,1B 


<63> 980 normal$=esc$+CHR$(0) 

<83> 320 DATA 20,OB,23,05,C8,7E,32,BB 


<31> 990 duenn$=esc$+CHR$(1) 

< 9> 330 DATA Fl , 23, 05, C8 , 7E,C5,E5, 6F 


<60> 1000 fett$=esc$+CHR$(2) 

<24> 340 DATA 26,00,29,29, 29,11 ,00, B8 


<18> 1010 unterstr$=esc$+CHR$(4) 

<83> 350 DATA 19,11,C9,Fl,01,08,00,ED 


<78> 1020 inversS=esc$+CHR$(8) 

<84> 360 DATA B0,21,01,01,22,BF,Fl,3A 


< 3> 1030 breit$-esc$+CHR$(16) 

< 7> 370 DATA BB,Fl,FE,FF,28,29,IF,DC 


<34> 1040 hoch$=esC$+CHR$(32) 

<33> 380 DATA BC, F0, IF, DC,CE, F0,1F,.DC 


<64> 1050 expo$=esc$+CHR$(64) 

<.1 3> 390 DATA B6 , F0 , IF , DC, DE, F0 , IF , DC 


<31> 1060 expobre.it$=esc$+CHR$(80) 

<49> 400 DATA EC,F0,IF,DC,17,Fl,IF,DC 


<43> 1070 titel$=esc$+CHR$(255) 

<63> 410 DATA 3D,F!,1F,DC,3Ä,Fl,CD,66 


<86> 1080 IF cl=l THEN f=l:GOTO 1130 

<77> 420 DATA Fl,El,CI,23,10,A7,C9,21 


<11> 1090 1 

< 8> 430 DATA C9,Fl,06,08,ED,5B,BD,Fl 


<24> 1100 CHAIN MERGE "BEGRIFFE.BAS",1190,ALL 

<91> 440 DATA 7A, 90,57,14 , C5 , D5 , E5,06 


<13> 1110 GOSUB 10000 

<68> 450 DATA 08,4E,CB,01,21,C9,Fl,38 


<91> 1120 ' 

<12> 460 DATA 03,21,CI,Fl,CD,92,Fl,IC 


<90> 1130 DEF FNlocS(y,x)-esc$+"Y"+CHRS(32 + y)+CHR$ 

<83> 470 DATA 7B,10,EF,El,Dl,CI,23,10 


(32+x) 

<63> 480 DATA E2,32,BD,Fl,18,CB,21,DO 


< 7> 1140 DIM w$(begr),gS(begr),l(begr),f$(begr) 

<55> 490 DATA Fl , 36,FF,C9,F5,21 , C9,Fl 


<22> 1150 IF c1—1 THEN 1170 

< 6> 500 DATA 06,08,7E,CB,3F,A6,77,23 


<46> 1160 p=0:runde=l:f=l 

<32> 510 DATA iö,F8,Fl,CB,87,C9,F5,21 


<26> 1170 nr$ (1 ) = "l" :nr$ (2) = "2" :nr$ ( 3) =•"3" : nr$ ( 4 )- 

<43> 520 DATA C9,Fl,06,08,7E,CB,3F,B6 



<12> 530 DATA 77,23,10,F8,Fl,C9,F5,21 


<87> 1180 m$(l)="Drehen":m$(2)="Vokal kaufen":mS(3 

<98> 540 DATA C9,Fl,06,08, 7E ,2F,77,23 


)="Lösen":m$(4)="Spielende" 

<15> 550 DATA 10,FA,Fl,C9,F5,3E,02,32 


<44> 1190 i$(1) = "EXTRA--DREH":i$(2)="BANKROTT":i$(3 

<50> 560 DATA BF,Fl,DD,21,C9,Fl,OE,08 


)="AUSSETZEN":i$(4)="BONUS" 

<47> 570 DATA 06,08,DD,7E,00,IF,DD,CB 


<93> 1200 IF cl=l THEN cl=0:RETURN 

<45> 580 DATA 00,1E,DD,CB,10,IE,DD,CB 


<94> 1210 PRINT cls$;nostat$ 

<64> 590 DATA 00,2E,DD,CB,10,IE,10,ED 


<93> 1220 ' 

<64> 600 DATA DD,23,OD,20,E3,Fl,C9,3E 


<21> 1230 '* Glücksrad 

<82> 610 DATA 02,32,CO,Fl,11,DO,Fl,CD 


< 0> 1240 ' 

<92> 620 DATA 2A,Fl,3A,BF,Fl,3D,C8,11 


<36> 1250 FOR rad=l TO 5 

<26> 630 DATA EO,Fl,21,08,00,19,06,08 


<69> 1260 PRINT FNlocS(12,45);"100";:GOSUB 1370 
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<20> 1270 PRINT FNloc$ ( 14 , 40 );" 450 ";: GOSUB 1370 
<88> 1280 PRINT FNlocS ( 16 , 35 ); "300" ; :GOSUB 1370 
<92> 1290 PRINT FNloc$ ( 18 , 40 ) ;"500";:GOSUB 1370 1 

<73> 1300 PRINT FNlocS(20 , 45);"5000";:GOSUB 1370 
<90> 1310 PRINT FNlocS(18,50);"EXTRA"GOSUB 1370 
<67> 1320 PRINT FNlocS(16 , 55);"750";:GOSUB 1370 1 

< 0 > 1330 PRINT FNlocS(14,50);"BANKROTT" ; :G0SUB 13 1 

• 70 

< 1> 1340 NEXT 

<78> 1350 PRINT cls$;curd$ 

<70> 1360 GOTO 1390 

<28> 1370 PRINT cls$:OUT 248,ll:OUT 248 ,12 :RETURN 
<14> 1380 ’ 

<80> 1390 '* Spielernamen-Eingabe 
<91> 1400 ' 

<39> 1410 OUT 248,8 

<56> 1420 PRINT CHR$ ( 134 ); STRINGS (88, 138 ); CHR$ ( 140 1 

<15> 1430 FOR ra=l TO 12 

<56> 1440 PRINT CHR$ ( 133 ); SPACES (88); CHRS ( 133 ) ; 

< 6> 1450 NEXT 

<84> 1460 PRINT CHRS(131);STRING$ (88, 138);CHR$ ( 137 1 

<82> 1470 t$=titel$+"Glücksrad":x%=10:y%=li:GOSUB 1 
5620 1 

<40> 1480 t$=breit$+"fi" :x% = 34 :y%=4 .-GOSUB 5620 

< 5> 1490 t$=duenn$+"1991":x%=37:y%=4:GOSUB 5620 
<29> 1500 t$=fett$+"R. Pre/31 & M. Spangier, Nbq.": 1 

x%=47:y%=4:GOSUB 5620 

<10> 1510 tS=expo$+STRING$(88 , ):x%=2:y%=12:GOSU 1 

B 5620 

<20> 1520 t$=breit$+"Eine JOYCE-Version des bekann 1 
ten Ratespiels":x%=3:y%=l3:GOSUB 5620 

< 5> 1530 t$=hoch$+"Spielernamen-Eingabe:":x%=34:y I 

%=19 : GOSUB 5620 1 

<41> 1540 PRINT hei1$ : OUT 248,7 
<58> 1550 FOR a=l TO 3 

<69> 1560 PRINT FNlocS ( 18+a*2 , 33 ); "Name Spieler";a| 

; FNlocS(18+a*2,47);":"; : INPUT " ",nS(a) 

<89> 1570 IF LEN(nS(a))>10 THEN PRINT FNlocS ( 18+a* 1 
2,49);SPC(20):GOTO 1560 
<90> 1580 IF n$(a )="" THEN 1610 
<70> 1590 anz=a 
<94> 1600 NEXT 
<63> 1610 PRINT curw$ 

<75> 1620 t$=esc$+CHR$ ( 24 )+">>> BITTE EINE TASTE d| 
RÜCKEN <<<" :x%=12:y%=32:GOSUB 5620 

< 0> 1630 WHILE INKEY$=" ": zufall=zufall+i:WEND 
<59> 1640 RANDOMIZE(Zufall) 

<86> 1650 m=INT ( RND*2 ) 

<14> 1660 ' 

<24> 1670 '* Bildschirmaufbau 
<20> 1680 ' 

<44> 1690 PRINT cls$ 

<53> 1700 t$=hoch$+"B itte..einen..Morn 1 
ent.. Gedul d" :x%=22 :y%=l7 :GOSUB 5620 :f| 
OR q=l TO 3000:NEXT 
<44> 1710 PRINT cls$;dkl$:OUT 248,8 

<23> 9 =1 T0 4 : PRINT FNlocS (q , 0); inv$ ;SPAC 1 

ES (90);noinv$ : NEXT 

<79> 1730 t$=esc$+CHR$(58)+"G . 1. ü. c. k. s. r a 1 
. d":x%=20:y%=5 : GOSUB 5620 
<46> 1740 FOR ra = 6 TO 24 

<20> 1750 PRINT FNlocS ( ra ,0); CHR$ ( 133 ); SPACES ( 89 ); 1 
CHRS(133); 

<15> 1760 NEXT 

<82> 1770 FOR q=25 TO 28:PRINT FNlocS ( q ,0); inv$ ; SP 1 
ACE$(90);noinv$ : NEXT 1 

<20> 1780 t$=esc$+CHR$ ( 58 )+ "J . O. Y. C. E":x%=32'V 1 
%=29:GOSUB 5620 1 

<49> l!^n^ INT , FNlocS(6 ' 9 °) ;CHR S( 1 33);FN loc $(25,0 I 

)r CHRS(133) f 

<64> 1222 FNlocS ( 13 /0);CHR$(134);STRING$<34, 1 
CHRS ( 138));CHR$(140); 1 

<61> 1810 FOR ra=14 TO 25 
<79> 1820 PRINT FNlocS ( ra , 35 ); CHR$ ( 133 ); 

< 8 > 1830 NEXT 

<89> 1840 PRINT FNlocS (17,1); STRINGS ( 34 , CHRS ( 138 )) 1 
<90> 1850 PRINT FNlocS (21,1); STRINGS ( 34 , CHRS (1 38 )) 1 

< 5> 1860 t$=esc$+CHR$ ( 9 )+" Glücksrad ":x%=l3:y%=2 1 

3 : GOSUB 5620 Y 1 

<79> 1870 FOR ra = 14 TO 25 
<42> 1880 PRINT FNlocS ( ra,55 ); CHRS ( 133 ); 

<26> 1890 NEXT 

< 5> 1900 PRINT FNlocS(13,55);CHR$ ( 134 ) ;STRING$ (33 1 

, CHRS(138) ); 1 

<98> 1910 t$=esc$+CHR$ ( 9 ) + ". Spieler und Punk 1 

te: . " :x%=57:y%=15:GOSUB 5620 

<28> 1920 t$=breit$+" -" :x%=59 • v% = 19 ■ 1 

GOSUB 5620 * 1 

<30> 1930 t$=" -" :x%=59 :y%=23 :GOSUB 5| 

620 J 1 
<14> 1940 ’ 

< 4> 1950 '* Hauptschleife 
<20> 1960 • 

< 4> 1970 FOR a=l TO anz 

<16> 1980 t$=normal$+n$(a):x%=60:y%=i3+a*4:GOSUB 5| 
620 

< 6 > 1990 g(a)=0 
<83> 2000 NEXT 

<15> 2010 t$=fett$+"Runde :" :x%=54:y%=8:GOSUB 5620 1 
< 9 3> 2020 PRINT FNlocS ( 7 , 59 ); runde; 

<16> 2030 m=m+l 

<77> 2040 FOR a=l TO anz 

<76> 2050 g(a)=0 

< 2> 2060 NEXT 

<47> 2070 GOSUB 2420 

<35> 2080 ko=0 

<92> 2090 FOR a=l TO anz 

< 90 > 2100 PRINT FNlocS(12+a*4,73);USING"######";g( 1 

<33> 2110 PRINT FNlocS(12+3*4,81),-USING "####### ";h 1 
(a) / 

<91 > 2120 NEXT 

<76> 2130 IF ra>anz THEN m=l 

<44> 2140 PRINT FNlocS (12+m*4 ,57 );"=*" ; 

<85> 2150 o=0:GOSUB 2620 

< 5> 2160 ’ 

< 0> 2170 ’* Konsonant eingeben und prüfen 
<11> 2180 ’ 

<92> 2190 t$=fett$+"Bitte Konsonant eingeben :" :x%= 1 

3 :y%=16:GOSUB 5620 
<70> 2200 PRINT FNlocS(15 , 28) ; curdS ; 

<89> 2210 a$=INKEY$ 

<17> 2220 IF a$="" THEN 2210 
<62> 2230 PRINT curw$ 

<58> 2240 IF a$="ä" THEN a$="Ä" 

< 0> 2250 IF a$="Ö" THEN a$="Ö" 

<41 > 2260 IF a$="ü" THEN a$="Ü" 

<38> 2270 a$=UPPER$(a$) 

< 3> 2280 IF ASC(a$)<65 OR ASC(a$)>93 THEN 2210 1 

<36> 2290 tS=normalS+a$:x%=29:y%=16:GOSUB 5620 
<31> 2300 IF a$="A" OR a$="E" OR a$="I" OR a$="0" 

OR a$="U" OR a$="Ä" OR aS="Ö" OR aS="Ü" THEN 
t$-fett$+"Das ist ein Vokal!":x%=3:y%=20:GOSU 1 

B 5620:GOSUB 4770:GOSUB 4720:IF extra(m)=l TH 1 
EN 4550 ELSE GOSUB 4670:m=m+l:GOTO 2080 
<11> 2310 FOR t=l TO f 

< 5> 2320 IF a$ = f $ ( t ) THEN t$=f ett$ + "War schon!":xl 

%=3 :y%=20 :GOSUB 5620:GOSUB 4770:GOSUB 4720:If| 
extra(m)=1 THEN 4550 ELSE GOSUB 4670 : m=m+1:G 1 
OTO 2080 
<98> 2330 NEXT 

< 9> 2340 FOR nr=l TO LEN(r$) 

<96> 2350 IF UPPERS(MID$(rS,nr,l ) )=a$ THEN o=o+l:pl 
=p+l:PRINT FNlocS(12,52+nr ); aS ; CHR$ ( 7 ); CHRS (7 1 
): GOSUB 4720 1 

< 8 > 2360 NEXT 

<23> 2370 f $( f)=a$:f=f+l:IF o>0 THEN 3240 

<20> 2380 GOSUB 4720 

<38> 2390 IF extra(m)=l THEN 4550 

<16> 2400 GOSUB 4670:m=m+l:GOTO 2080 

<95> 2410 ’ 

<16> 2420 '* Wort auslosen 

< 2> 2430 ' 

<80> 2440 RESTORE 10020 
<80> 2450 FOR a=l TO begr 
<34> 2460 READ w$(a),g$(a) 

<94> 2470 IF g$(a)="E" THEN g$(a)="EREIGNIS" 

<74> 2480 IF g$(a)="G" THEN g$(a)="GRUPPE" 

<26> 2490 IF g$(a)="N" THEN g$(a ) ="NATUR” 

<11> 2500 IF g$(a)="0" THEN g$(a)="ORT" 

<57> 2510 IF g$(a ) ="P" THEN g$(a)="PERSON" 

< 1> 2520 IF g$(a)="R" THEN g$(a )=" REDEWENDUNG" 

<74> 2530 IF g$(a)="S" THEN g$(a ) ="SACHE" 

<94> 2540 IF gS(a) = "T" THEN g$(-a) = "TITEL" 

< 9> 2550 NEXT 

<27> 2560 Z=INT(RND*a) 

<28> 2570 IF Z<=0 THEN 2560 
<28> 2580 r$=W$(z) 

<57> 2590 rg$=g$(z) 

<23> 2600 GOSUB 3290 
<94> 2610 RETURN 
<69> 2620 GOSUB 4330 

< 6 > 2630 ' 

<33> 2640 '* Auswahlmenü 
<12> 2650 1 

<66> 2660 t$=normal$+CHR$(131)+STRING$ ( 34 , CHRS ( 138 1 
))+CHR$(137):x%=l:y%=l3:GOSUB 5620 1 




10/11 ’91 CPC 113 
































PCW 


<78> 2670 FOR ra = 6 TO 11 


<51> 3370 IF MIDS(r$ ,X, 1)<>" " THEN te$="-" ELSE t 

<94> 2680 PRINT FNlocS(ra,35);CHR$(133); 


e$=" ":p=p+i 

<23> 2690 NEXT 


<82> 3380 PRINT te$; 

<59> 2700 y%=8 


<18> 3390 NEXT 

<68> 2710 FOR a=l TO 4 


<88> 3400 RETURN 

<85> 2720 t$=breit$+nr$(a) + " - "+m$(a) :x% = 3:y%;:y%: 


<96> 3410 ' 

GOSUB 5620 


<45> 3420 '* Lösen 

< 5> 2730 y%=;y%+l 


< 3> 3430 ' 

<10> 2740 NEXT 


<11> 3440 GOSUB 4720 

<16> 2750 t$=normal$+STRING$(19,OHRS(138)):x%=37:y 


<54> 3450 t$=fett$+">":x%=3:y%=16:GOSUB 5620 

%=14:GOSUB 5620 


<48> 3460 PRINT FNlocS(15,3);curdS;:INPUT " ",lo©S 

<89> 2760 t$::=invers$ + SPACE$(19) :x% = 37:y% = 15:GOSUB 


ungS:PRINT curwS; 



<78> 3470 FOR q=l TO LEN(loesungS) 

< 9> 2770 t$ -escS+CHRS (24) +"5: Hilfe" :x%=39 :y%=15: 


<44> 3480 um$=MID$(loesungS,q,l) 

GOSUB 5620 


<80> 3490 IF um$="ä" THEN MID$(loesungS,q,1)-"Ä" 

<53> 2780 OUT 248,7 


<12> 3500 IF um$="ö" THEN MID$(loesungS,q,1)="Ö" 

<26> 2790 t$-breit$+"Ihre Wahl:_ ":x%-3:y%-l6:G 


<71> 3510 IF um$="ü" THEN MIDS(loesungS,q,l)="ü" 

OSUB 5620 


< 1> 3520 NEXT 

<65> 2800 PRINT curw$ 


<43> 3530 IF UPPERS(loesungS)<>r$ THEN t$-fett$+"L 

<92> 2810 PRINT FNl 0 C$(15,24);curd$; 


eider .falsch!" :x%=3 :y%=20 :GOSUB 5620 ELSE 356 

<65> 2820 k$=lNKEY$ 


0 

<72> 2830 IF k$="" THEN 2820 


<64> 3540 GOSUB 4770:GOSUB 4670 

<77> 2840 PRINT curwS 


<53> 3550 m=m+l:GOTO 2080 

< 1> 2850 j =VAL(k$) 


<70> 3560 tS=fett$+"Richtig!":x%=3:y%=20:GOSUB 562 

<90> 2860 IF j<l OR j>5 THEN 2810 


0 

<17> 2870 t$=normal$+k$:x%=25:y%=16:GOSUB 5620 


<92> 3570 GOSUB 4770 

< 9> 2880 FOR a=l TO 5 


<95> 3580 GOSUB 3960 

<92> 2890 PRINT FNlocS(5+a,1);SPC(33); 


<53> 3590 GOTO 2020 

< 2> 2900 NEXT 


<92> 3600 RETURN 

<73> 2910 ON j GOTO 3000,4370,3420,3620,4830 


< 1> 3610 ' 

<39> 2920 GOTO 3000 


< 0> 3620 '* Spielende 

<12> 2930 ' 


< 7> 3630 ’ 

< 5> 2940 '* Drehen 


<60> 3640 t$ = fett$ + "Spielende (j/n)? . ":x% 

<18> 2950 1 


=3:y%=16:GOSUB 5620 

<51> 2960 t$-fett$+"Es wird erneut gedreht:x%=3: 


<95> 3650 PRINT FNlocS(15,19);curd$; 

y%=20:GOSUB 5620:GOSUB 4770:GOTO 3020 


<19> 3660 ende$=LOWER$(INKEYS) 

<20> 2970 IF extra(m)=1 THEN g(m)=0:GOTO 4550 ELSE 


<79> 3670 IF ende$ = "" THEN 3660 

t$=fett$ + "Bankrott! 11 : x%=3 :y% = 20 : GOSUB 5620:g 


<86> 3680 PRINT curw$ 

(nv)=0: GOSUB 4770:GOSUB 4670:m=m+l:GOTO 2080 


< 7> 3690 t$=normal$+ende$:x%=20:y%=16:GOSUB 5620 

<21> 2980 IF extra(m)-l THEN 4550 ELSE t$=fett$+"A 


<17> 3700 IF ende$="j" THEN GOSUB 3730:PRINT cls$; 

ussetzen!":x%=3:y%=20:G0SUB 5620:GOSUB 4770:G 


curdS;stat$:KILL "m:data.ql":CLEAR:END 

OSUB 4670:m=m+1:GOTO 2080 


<34> 3710 IF ende$="ri" THEN PRINT FNlocS (15,2 ) ; SPG 

< 9> 2990 t$=fett$+"BONUS:. 1 0 0 0":x% = 3:y%=20:GO 


(28):GOTO 2080 

SUB 5620:GOSUB 4770:h(m)=h(m)+1000:PRINT FNlo 


<87> 3720 GOTO 3660 

cS(12+m*4,81);USING"#######";h(m):GOTO 2960 


<31> 3730 FOR a=l TO anz:h(a)=h(a)+g(a):extra(a)=0 

<52> 3000 GOSUB 4330 


: NEXT 

<38> 3010 DATA 100,250,500,100,500,750,1000,-1,750 


<92> 3740 FOR a = l TO anz 

,250,100,-2,250,500,100,2500,-3,250,100,750,- 


<52> 3750 IF h(a)=MAX(h (1) , h ( 2 ) , h ( 3 ) ) THEN no=a:no 

4,500,5000,700,500 


(a)=l:GOTO 3770 

< 5> 3020 RESTORE 3010 


<77> 3760 IF h(a)=MIN(h(l),h(2),h(3)) THEN no(a)=a 

<91> 3030 FOR k=l TO 25 


nz ELSE no(a)=2 

<82> 3040 READ l(k) 


<20> 3770 NEXT 

< 0> 3050 NEXT 


< 7> 3780 FOR q=9 TO 12 

<85> 3060 V=INT(RND*25) 


<71> 3790 PRINT FNlocS(q,40);SPC(45); 

<69> 3070 IF V<1 OR V>25 THEN 3060 


< 1> 3800 NEXT 

<91> 3080 FOR S=1 TO v 


<48> 3810 tS=esc$+CHRS(9) + ". . ENDERGEBNIS:... ":x% 

<69> 3090 FOR a=-l TO -4 STEP -1 


=64:y%=15:GOSUB 5620 

< 9> 3100 IF l(s-l)=a THEN i$=i$(ABS(a)) ELSE NEXT 


<88> 3820 FOR a=l TO anz 

:i$=STR$(1(s-1)) 


<32> 3830 PRINT FNlocS(12+a*4,56);no(a);FNlocS(12+ 

<12> 3110 PRINT FNlocS(24,0) 


a * 4,7 3);". 

<34> 3120 PRINT FNlocS(24,13);i$+STRING$(12-LEN(iS 


<13> 3840 NEXT 

)/" "); 


<18> 3850 PRINT FNlocS(19,3);"Sieger: ";n$(no); 

<28> 3130 FOR q=l TO S*5:NEXT 


<40> 3860 t$=normal$ + "Punkte:":x%=4:y%=21:GOSUB 56 

<98> 3140 NEXT 


20 

<59> 3150 FOR a=-l TO -4 STEP -1 


< 7> 3870 PRINT FNlocS(20,10);h(no); 

<27> 3160 IF l(s-l)=a THEN i$=i$(ABS(a)) ELSE NEXT 


<22> 3880 FOR q=l TO 3000:NEXT 

:i$=STR$(l(s-l)) 


<43> 3890 FOR X=19 TO 20 

<49> 3170 PRINT FNlocS(24,13);i$+STRING$(12-LEN(i$ 


<24> 3900 PRINT FNlocS(x,2);SPC(28) ; 

) , " " ); 


< 6> 3910 NEXT 

<90> 3180 IF 1(S-1)=-1 THEN extra(TO)=1:GOTO 2960 


< 7 > 3920 t$-normalS + ">>> TASTE <<<" :x%=10:y%= 

<11> 3190 IF 1 ( S-1)=-2 THEN 2970 


20 : GOSUB 5620 

<29> 3200 IF 1 ( S-1 ) =-3 THEN 2980 


<41> 3930 WHILE INKEY$ = "" : VJEND 

<98> 3210 IF 1(s-1)=-4 AND bonus=l THEN 3020 


<11> 3940 RETURN 

<31 > 3220 IF 1(s-1)--4 THEN bonuS=l:GÖTO 2990 


<19> 3950 ' 

<93> 3230 RETURN 


<82> 3960 '* Rundenende 

<73> 3240 IF ko=0 THEN g(m)=g(m)+1(s-1 ) *o 


<25> 3970 ' 

<49> 3980 tS-hochS +r$ : X%*54 : y%:=l3 : GOSUB 5620 

< 13> 3260 GOSUB 4720 


<83> 3990 FOR q=l TO 1500:NEXT 

<35> 3270 GOTO 2080 


<69> 4000 FOR q=9 TO 12 

<14> 3280 ' 


<34> 4010 PRINT FNlocS(q,40 ) ;SPC(45 ); 

<81 > 3290 ' * Wort anzeigen 


<91 > 4020 NEXT 

<91> 3300 1 


<92> 4030 IF g(m)<300 THEN g(m)=300 

<57> 3310 t$=fett$+"Bereich :" :x%=45:y%=10:GOSUB 56 


<90> 4040 PRINT FNlocS ( 19 , 3 ) ;n$(m) ;" erhält dafür" 

20 


<10> 4050 PRINT FNlocS(20,2);g(m) ; "Punkte. "; 

<38> 3320 t$=esc$+CHR$ ( 9 )+" "+rg$+" " :x%=54 : y%=10 : 


< 1> 4060 FOR q=l TO 3000:NEXT 

GOSUB 5620 


<22> 4070 FOR X=19 TO 20 

<55> 3330 t$=fett$+"Buchstaben :" :x%=69:y%=10:GOSUB 


<13> 4080 PRINT FNlocS(x,2);SPC(33); 

5620 


<13> 4090 NEXT 

<72> 3340 PRINT FNlocS(9,79);LEN(r$); 


<30> 4100 GOSUB 4670:GOSUB 4720 

<95> 3350 PRINT FNlocS(12,53); 


<20> 4110 runde=runde+l 

<51> 3360 FOR x=l TO LEN(r$) 


<64> 4120 h(m)=h(m)+g(m) 
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<45> 

<24> 

<69> 

<87> 

< 7 6> 
< 12 > 
<62> 
<74> 
<44> 
< 66 > 
<80> 
<73> 

< 5> 
<55> 

< 0 > 
<90> 
<87> 
<4-4> 

< 5> 
<98> 
<82> 


< 0 > 
< 38> 
< 11 > 
< 21 > 
<17> 
< 21 > 


<96> 

< 86 > 
<98> 
<31> 
<71 > 
<67> 


4130 t$-fett.$+"Bitte einen Moment Geduld x% 

=3:y%=20:G0SUö 5620 

4340 OPEN "0",1,"mrdata.gl" 

4150 WRITE #1 ,m, runde,beqr,an/, Zufall 
4160 FOR a=l TO anz 
4370 WRITE #1,h(a),n$(a) 

4180 NEXT 
4190 CLOSE 1 
4200 CLEAR 

4210 OPEN "I",l,"m:data.qJ" 

4220 INPUT #l,m, rSinde,beyx , an#,züfal 1 
4230 FOR a-1 i’O anz. 

4240 INPUT fl,h(a),n$(a) 

4250 NEXT 
4260 CLOSE 1 
4270 cl=l:GOSUB 180 
4280 GOSUB 4770 
4290 2Ufall=2UfallKl 
4300 RANDOMIZE(Zufall) 

4310 GOTO 3590 
4320 ' 

4330 IF p=LEN(r$) TUEN tS=fett$+"Alles errate 

n!":x%=3:y%=20:GOSUB 5620:GOSUB 4770:GOSUB 39 

60:GOTO 2020 

4340 RETURN 

4350 GOTO 2020 

4360 1 

4370 '* Vokal kaufen 
4380 ' 

4390 IF g(m)<300 TUEN t$*fe.tt-$+"Nicht genug G 
eld!":x%=3:y%=20:GOSUB 5620:GOSUB 4770:GOTO 2 
7 00 

4400 t$=fett.S + "Bitte Vokal eingeben:. ":x%-3- 

y-%=16 :GOSUB 5620 

4410 PRINT FNloc$(15,24);curd$; 

4420 a$=INKEY$ 

4430 IF a$~"" THEN 4420 
4440 PRINT curw$ 

4450 IF a$="ä" THEN a$="Ä" 


512k Speichererweiterung für CPC 

■ RAM-Erwoiterung 64, 128, 256 oder 512K für alle CPCs 
Alle Versionen nachträglich au! Maximal-Veision aulrüstbar 

' optional 2 EPROM-Sockel mil Troi wählbarer ROM-Nummor (1-15) 

■ p2'^ ,09rBmm Ir' SSK 1? Endlich laufen dBase, Multiplan und Wordstar 

Patchprooramm für CP/M Plus. CP/M Plus such für CPC 464/664 

, resolfosle RAM-Dlse (maximal 448K) für CP/M 2.2 und CP/M Plus 
reseffeste RAM-Disc unter BASIC (nur bei EPROMVersion) 

• 100% kompallbel zu dk'lronlcs RAM-Erwoiterung und Sllicon-Disc 

, Abschluß über den Expansionsport (kein Eingriff in den Rechner nötig) 
geringe Abmessungen (mit Gehäuse: 160 x 83 x 20 mm) durchgeführler Erweilerungsbus 

RAM-Erweltarung mil Software lür CP/M 2.2 und CP/M Plus aut 3'-Dlsketie 

(wahlweise auch 3.5"- oder 5.25'-Diske1te) 

Preise: ohne RAMs.119.- DM 64 KByte.149,- DM 128 KByto.199 - 0M 

256 KByte.269,- 0M 512 KByte.419.- DM 

Aufpreis für zusätzliche EPROM-Socko! und Software im EPROM 



CPC-464/664 Komplet lg erat DM 289,50 Bausatz DM 239,- 
CPC-6128 Komplettgeiäl DM 319,50 Bausatz DM 269'- 
PC-1512-Komplottgeräl 0M 399.50 Bausatz DM 349.- 
• Aulpreis für CPC-Sollwate aul 3 - -Diskette stall Cassette DM 15,- 


49 - DM 


IBM PC & CPC 464/664/6128 

• Programmiert alle gängigen EPROM- und 
EEPROM-Typon (z.B. 2716, 27C16, 2732, 2732A, 
27C32. 2758, 2764, 2764A, 27C64. 27128. 27128A 
27C128. 27256, 27C256, 2508, 2532, 2564,X2804A' 
X2816A, X2864A...J 

• Monügesleuede Sollware auf Cassette/Disketle 

• 32 KByte frei für EPROM-Daten (Bronnen des 27256 
ohne Nachladan) 

• Kein Umschallen, Steckan oder Löten nötig 

• Programmierspannungon werden im Gerät erzeug! 

• Verbindung zum Rechner UbBt FlRchbandkabel und 
Inlertace-Kano (CPC-Vereion mit durchgoführtem Ex¬ 
pansionsport) 

• Role und grüne LED zur Bolrlebsarlenanzoige 

• Komplelt mit 28poligem Textlool-Sockel 


EPROM- Karte 224 KByte für alle CPC 


Für die EPROM-Typen 2764. -128. -256 
ROM-Nummorn 0-15 Irei wählbar 
7 Sockel 

Bei 27256 zwei ROM-Nummern pro Sockel 
Durchgeführler Expansionsport 

’nrtlnne.s. Ers,0 "°" v ? n Programmodulen (BASIC und BIN-Dateien) 


Forliggerät für CPC 464/664 
Modul-Software auf 3”-Diskette 


DM 145,- ' Fertiggerät für CPC 6128 

DM 95.- 

Zubehör für EPROM-Karten 

SS9M2J5L * 7,50 Pfottxi-EPROM DM124,- Maxam-EPROM 

27128 DM 8,50 Promerae Pfiis-EPROM DM114,- Uhmm 

™ DM10,50 XDDOSEPROM OM 99.- Alpha ROM 

. p R0M 27512 DM 17,50 TimeROM (balteriefispullerle EchlzeKulir) - EPROM 


DM 169,- 


DM 124,- 
DM 94.- 
DM 35- 
DM 135,- 


DOBBERTlfl 


Industrie-Elektronik GmbH 
Brahmsstraße 9, 6835 Brühl 
Teleton 06202 / 714 17 
Telefax 06202 / 75509 


< 9> 
<50> 
<47> 
<45> 
<55> 


4460 IF a§="ö" THEN a$="Ö" 

4470 IF a$="ü" THEN a$="Ü" 

4400 a$=UPPiSR$ (a$) 

^=normal$+a$:x%=25:y%=i6:GOSUB 5620 

AND a 


< 7 > 
<94> 
<74> 

< 9> 
<85> 
<15> 
<80> 

< 7> 
<46> 
<39> 
< 66 > 
<46> 
<63> 

< 86 > 

<34> 
< 17 > 
< 12 > 
<2 3> 
<94> 
<95> 

< 4> 
<83> 
< 10 > 
<59> 

< 11 > 

<19> 

<32> 

<25> 


4500 IF a$o"A" AND a$o"E" AND aS<>"I" 

D < a S 2>4” D THlrI«'o ÄHD aS<> " S " “ D aS<> '' 0 '' AN 

4510 g(m)=g(m)-300:ko=l 

4520 PRINT FNloc$(15,2);SPC(30); 

4530 GOTO 2310 
4540 ' 

4550 '* Extra-Dreh 
4560 ' 

«o-fsas'sgr“ 1 * benutzen <j*j**«* 

4580 PRINT FNlocS(19,29);curd$; 

4590 e$=INKEY$ 

4600 IF e$="" THEN 4590 
4610 PRINT curv/$ 

4620 t$-normal$+e$:x%=30:y%=20:GOSUB 5620 
0 6 2080* e$_M;] " THEN extra ( m )-0:GOSUB 4770:GOT 

foi?" TH ™ G0S0B 477 »--GOSDB 4670:m=m 

4650 GOTO 4590 
4660 ' 

4680 '* Spielermarkierun g löschen 

4690 PRINT FNlocS(12+m*4,57);" 

4700 RETURN 
4710 ' 

4720 '* Eingabezeile löschen 
47 30 1 

4740 t$=normal$+SPACES(33):x%=3 :y%=16 :GOSUB 5 

4750 RETURN 
4760 ' 

sehen'* Wartescll -*- e ^ e und Meldungen wieder lö 
4780 ' 


* H crbstprcisc = Wahnsinnspreise ★ 


* VORTEX SYSTEM 2000 Festplatte 
für JOYCE PCW 8256/8512/9512: 

Tn ^ eea ® yte 4 Nicht mchr lieferbar, da ausverkauft. 

JU McgaByte anstatt bisher t.298 .-- dm nun 798,— DM 
40 MegaByte anstatt bisher 1.498 ,- dm nun 899,— DM 
60 MegaByte anstatt bisher i.767 ,- dm nun 997, 50 DM 

,Y? t ? TEX ,SYSTEM 2000 Festplatten sind ein komplett anschluBfertiees 
IPrw « C,l 7 S k Cm w scp ® r /' cm be '8 cn Gehäuse mit CP/M Plus Vers. I 8 11 

aüÄ (pcw 95,2) - ■- 

yÄÄÄÄS asr sic *■ 

I Pit HcrbstprcUe U.d »», M. mm «JU»I pmi, Jlr y ofr „ , elc> T~| 


* AMSTRAD CPC 464/6128 PLUS * 


R D l A r M h STRA ^ CPC 464 7 6128 PLUS mit BAS,C - ’Burnin’ Rubber* Action- 
TMÄrft neuartigem paddle Controller* Joystick, 4096 mögl. Farben 
WrU^rrn^- vf hip ’ d ‘ V ' a' rwc, r tc ['^ngsmöglichkeitcn, vielen techn. sowie opt ’ 
Weiterentwicklungen und ausführlichem engl. BcnuUerhandbuch P ' 


CPC 464 PLUS mit 12” Monochrom-Monitor 456,— DM 

^ 128 PLUS mit ,2 ” Monochxom-Monitor 649,— DM 
CPC 6128 PLUS mit 14" Farb-Monitor _899,— DM 

J^*^^^^^^sse^/_V-Schcck_erf°lgt die Lieferung ab Lager per UPS frei Haus 


* LocoScript PC V. l.xx Dt. 598,50 * 


Y- in Deutsch mil dt. Installationsprogramm und dt In- 
all.itionshinweisen sowie engl. Handbüchern für alle MS.DOS PC/XT/AT 

WIEDMANN 


Unternehmensberatung & Handel 

* Korbiniansplatz 2 * D-8045 Ismaning * S 089 
* Fax.: 089-965001 * 


* Swebenhöhe 47 * D-2000 Hamburg 72 * 


965029 * 

040 - 6436447 * 
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PCW 


<13> 

<61> 

< 1> 

< 9> 
<45> 
<15> 
<23> 
<60> 
<55> 

<48> 

< 10 > 

<28> 

<50> 

<77> 

< 68 > 

<30> 

<43> 

< 6 > 
<48> 
< 12> 
<24> 
<87> 
< 71 > 

<45> 

<64> 

< 7> 
<97> 

< 6 > 
<76> 

<35> 

<20> 

< 8 > 
<87> 
<95> 
<60> 

<33> 

<21> 

<39> 
< 6 > 
<14> 
<63> 

<22> 
<23> 
<90> 
< 8 > 
<15> 

< 2 > 
<10> 
<78> 

<43> 
< 6 > 
<15> 

<55> 

<94> 

< 3> 
<39> 

<29> 

<14> 

< 2 > 

<70> 

<16> 

<95> 

<43> 

<51> 

<15> 

<46> 
< 8 > 
<78> 
<12> 
<20> 


4790 PRINT CHRS(7):FOR q=l TO 1000:NEXT 

4800 t$=normal$+SPACE$(33):x%=3:y%=20:GOSUB 5 

620 

4810 RETURN 
4820 ' 

4830 '* Hilfe 
4840 ' 

4850 GOSUB 4720 
4860 x%=37:y%=16 

4870 t$=invers$+STRING$(19,"-"):x%=x%:y%=y%:G 
OSUB 5620 

4880 t$=SPACE$(19) :x%=X% :y%=y%+l:GOSUB 5620 
4890 IF y% = 26 THEN 4900 ELSE 4880 
4900 t$=normal$+" V'+rg$+"J5 " :x%=38 :y%=17 :GOS 
UB 5620 

4910 IF rg$="EREIGNIS" THEN GOSUB 5010 
4920 IF rg$="GRUPPE" THEN GOSUB 5070 
4930 IF rg$="NATUR" THEN GOSUB 5130 
4940 IF rg$="ORT" THEN GOSUB 5190 
4950 IF rg$="PERSON" THEN GOSUB 5270 
4960 IF rg$="REDEWENDUNG" THEN GOSUB 5340 
4970 IF rg$="SACHE" THEN GOSUB 5410 
4980 IF rg$="TITEL" THEN GOSUB 5490 
4990 GOTO 5560 
5000 ' 

5010 t$=invers$+"~ Geschichtliches":x%=38:y%= 
19:GOSUB 5620 

5020 t$ = "- Zeitgeschehen":x%=38:y%=20:GOSUB 5 
620 

5030 t$="z. B. OLYMPISCHE":x%=38:y%=22:GOSUB 
5620 

5040 t$="SPIELE":x%=44:y%=23:GOSUB 5620 
5050 RETURN 
5060 1 

5070 t$=invers$+"- Gemeinschaften":x%=38:y%=l 
9:GOSUB 5620 

5080 t$ = "- Institutionen":x%=38:y%=20:GOSUB 5 
620 

5090 t$="z. B. GESANGS-":x%=38:y%=22:GOSUB 56 
20 

5100 t$="VEREIN":x%=44:y%=23:GOSUB 5620 
5110 RETURN 
5120 1 

5130 t$=invers$+"- Tiere":x%=38:y%=19:GOSUB 5 
620 

5140 t$ = "- Pflanzen":x%=38:y%=20:GOSUB 5620 
5150 t$="z. B. KAKTUS,":x%=38:y%=22:GOSUB 562 
0 

5160 t$="KREUZOTTER":x%=44:y%=23:GOSUB 5620 
5170 RETURN 
5180 ' 

5190 t$=invers$+"- Städte":x%=38:y%=l9:GOSUB 
5620 

5200 t$="- Länder":x%=38:y%=20:GOSUB 5620 
5210 t$="- Gewässer":x%=38:y%=21:GOSUB 5620 
5220 t$ = "- Gebirge":x%=38:y%=22:GOSUB 5620 
5230 t$="- Bauwerke":x%=38:y%=23:GOSUB 5620 
5240 t$="- Gebäude(-teile)":x%=38:y%=24:GOSUB 
5620 

5250 RETURN 
5260 ' 

5270 t$=invers$+"- Eigennamen":x%=38:y%=l9:GO 
SUB 5620 

5280 t$="- Berufe":x%=38:y%=20:GOSUB 5620 
5290 t$="- Gestalten":x%=38:y%=21:GOSUB 5620 
5300 t$="z. B. SCHLOSSER,":x%=38:y%=23:GOSUB 
5620 

5310 t$="JAMES BOND":x%=44:y%=24:GOSUB 5620 
5320 RETURN 
5330 ' 

5340 t$=invers$+"- geflügelte Worte":x%=38:y% 
=19:GOSUB 5620 

5350 t$="- Worte aus dem":x%=38:y%=20:GOSUB 5 
620 

5360 t$="Sprachgebrauch":x%=40:y%=21:GOSUB 56 
20 

5370 t$="- Sprichwörter":x%=38:y%=22:GOSUB 56 
20 

5380 t$="B.: NULL PROBLEMO":x%=38:y%=24:GOSUB 
5620 

5390 RETURN 
5400 ' 

5410 t$=invers$+"- Gegenstände":x%=38:y%=19:G 
OSUB 5620 

5420 t$="- Zustände":x%=38:y%=20:GOSUB 5620 
5430 t$="- Spezialitäten":x%=38:y%=21:GOSUB 5 
620 

5440 t$="usw.":x%=38:y%=22:GOSUB 5620 
5450 t$="Z. B. TISCH,":x%=38:y%=23:GOSUB 5620 
5460 t$="EISHOCKEY":x%=44:y%=24:GOSUB 5620 
5470 RETURN 
5480 ' 


< 88 > 

< 78 > 

<67> 

<24> 

<78> 

< 5> 
< 13 > 
<58> 

<47> 

<45> 

<84> 

<94> 

< 3> 
<34> 

< 9> 
<77> 
< 10 > 


5490 t$=invers$+"- Film-,":x%=38:y%=19:GOSUB 
5620 

5500 t$="- Fernseh-,":x%=38:y%=20:GOSUB 5620 
5510 t$="- Literatur-,":x%=38:y%=21:GOSUB 562 
0 

5520 t$="- Musiktitel":x%=38:y%=22:GOSUB 5620 
5530 t$="z. B. DAS BOOT":x%=38:y%=24:GOSUB 56 
20 

5540 RETURN 
5550 ' 

5560 t$=esc$+CHR$ (14) + " >» T A S T E «< ":x 
%=37:y%=26:GOSUB 5620 
5570 WHILE INKEY$="":WEND 
5580 x%=37:y%=15 

5590 t$=normal$+SPACE$(19):x%=x%:y%=y%+l:GOSU 
B 5620 

5600 IF y%=26 THEN 2080 ELSE 5590 
5610 ' 

5620 '* Superscript aufrufen 
5630 ’ 

5640 CALL script(x%,y%,t$) 

5650 RETURN 


LISTING >BEGRIFFE<, REMARK = >'<. 


<32> 9990 1 begriffe.bas (Wird automatisch nachgela 
den) 

<ll> 10000 '* Begriffe laden 
< 2> 10010 1 

<55> 10020 DATA INTERNATIONALE FUNKAUSSTELLUNG,E,O 
RCHESTER,G,WEINBERGSCHNECKE,N,BUNDESREPUBLIK 
DEUTSCHLAND,O,SIR ARTHUR CONAN DOYLE,P,ALLES 
AUF EINE KARTE SETZEN,R,GLÜCKSRAD,S,VOM WINDE 
VERWEHT,T 

<40> 10030 DATA DER DREISSIGJÄHRIGE KRIEG,E,DEUTSC 
HER GEWERKSCHAFTSBUND,G,VERGISSMEINNICHT,N,NÜ 
RNBERG,O,KRIMINALHAUPTKOMMISSAR,P,DALLI DALLI 
,R,BÜCHERREGAL,S,DIE BIBEL,T 
<36> 10040 DATA VERKEHRSUNFALL,E,BORUSSIA MÖNCHENG 
LADBACH,G,PUMA,N,ABSTELLKAMMER,O,DORNRÖSCHEN, 
P,MEISTER FALLEN NICHT VOM HIMMEL,R,SATELLITE 
NANLAGE,S,HEUTE,T 

<39> 10050 DATA TOUR DE FRANCE,E,MUSIKBAND,G,KIRSC 
HBAUM,N,DER EIFELTURM IN PARIS,O,JOHN WAYNE,P 
,GUTEN ABEND,R,DRUCKERFARBBAND,S,RAUMSCHIFF E 
NTERPRISE,T 

<40> 10060 DATA CEBIT,E,HOCHZEITSGESELLSCHAFT,G,ST 
ÖR,N,RIESENGEBIRGE,O,BUNDESPRÄSIDENT,P,AUS DE 
M VOLLEN SCHÖPFEN,R,GELDBEUTEL,S,PC AMSTRAD I 
NTERNATIONAL,T 

< 4> 10070 DATA TAG DER DEUTSCHEN EINHEIT,E,BUNDES 
ANSTALT FÜR ARBEIT,G,GÄNSEBLÜMCHEN,N,KÖNIGSSE 
E,0,WILLY MILLOWITSCH,P,DAS GELBE VOM EI,R,DA 
TABOX,S,EINER WIRD GEWINNEN,T 
<40> 10080 DATA OLYMPISCHE WINTERSPIELE,E,ERSTES D 
EUTSCHES FERNSEHEN,G,BÜFFEL,N,NÜRNBERGER CHRI 
STKINDLESMARKT,0,PROGRAMMIERER,P,WER NICHT HÖ 
RT MUSS FÜHLEN,R,AACHENER PRINTEN,S,LAWRENCE 
VON ARABIEN,T 

<10> 10090 DATA SONNENFINSTERNIS,E,EUROPÄISCHE GEM 
EINSCHAFT,G,STEINPILZ,N,GOLFPLATZ,0,ROBIN HOO 
D,P,HERVORRAGEND,R,TASCHENLAMPE,S,DAS AKTUELL 
E SPORTSTUDIO,T 

<37> 10100 DATA DER AMERIKANISCHE BÜRGERKRIEG,E,KI 
RCHENGEMEINDE,G,WÜHLMAUS,N,SYLT,O,KARL MAY,P, 
EIN SILBERSTREIF AM HORIZONT,R,COMPUTER,S,DER 
NAME DER ROSE,T 

<19> 10110 DATA WELTMEISTERSCHAFT,E,KEGELKLUB,G,GR 
IZZLYBÄR,N,KAP DER GUTEN HOFFNUNG,0,DSCHINGIS 
KHAN,P,RACHE IST SÜSS,R,KUNSTRADFAHREN,S,IN 
ACHTZIG TAGEN UM DIE WELT,T 
<57> 10120 DATA WELTWIRTSCHAFTSGIPFEL,E,CARITAS,G, 
LIANE,N,SCHLOSS NEUSCHWANSTEIN,0,GARFIELD,P,E 
NDE GUT ALLES GUT,R,KOPFSTEINPFLASTER,S,ZWÖLF 
UHR MITTAGS,T 

<23> 10130 DATA VIETNAMKRIEG,E,POLIZEI,G,MEERESALG 
EN,N,GRAND CANYON,O,HEINZ RÜHMANN,P,AMEN,R,FA 
HRRADSTÄNDER,S,DIE DREI MUSKETIERE,T 
<67.- 10140 DATA ÖFFNUNG DER BERLINER MAUER, E,FAMIL 
IE,G,ZWERGSCHNAUZER,N,COSTA BRAVA,0,FRITZ WAL 
TER,P,VIEL GEWAGT IST HALB GEWONNEN,R,SCHREIB 
TISCH,S,ÜBER DEN DÄCHERN VON NIZZA,T 
<27> 10150 DATA STADTRATSWAHL,E,SPORTVEREIN,G,LÖWE 
NZAHN,N,GLASGOW,0,GÜNTHER JAUCH,P,NULL PROBLE 
MO,R,S EIFENKISTE,S,DERRICK,T 
<17> 10160 DATA DER ERSTE WELTKRIEG,E,REGIERUNG,G, 
DINOSAURTER,N,HAMBURGER HAFEN,O,BORIS BECKER, 
P,AUF WIEDERSEHEN,R,FERNBEDIENUNG,S,TATORT,T 
<57> 10170 begr=120 
<73> 10180 RETURN 
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Hardware 


Die Neuen sind da 


Die PCWs der neuen Generation 

Was sich auf dem CPC-Sektor schon vollzogen hat - der Wandel vom 
CPC zum CPC Plus - soll jetzt auf der Systems auch für die PCWs 
in erreichbare Nähe rücken. Wir stellen vor: der PCW Plus 


In absehbarer Zeit wird Amstrad in 
Verbindung mit der Firma Wiedmann, 
die den Vertrieb der neuen PCWs im 
deutschsprachigen Raum übernehmen 
wird, eine neue Generation PCWs in 
den Markt einführen. 

Die Sprache ist von den bisher nur hin¬ 
ter vorgehaltener Hand benannten Mo¬ 
dellen 9256 und 9512 Plus, die im De¬ 
sign der 90er Jahre - ähnlich der Plus- 
Serie bei den CPCs - gehalten sind. 
Beim PCW 9256 handelt es sich um ei¬ 
nen Computer, der anstelle des PCW 
9512 (bisher mit Typenraddrucker am 
Markt) über einen 9-Nadel-Drucker 
verfügen wird. 

Für alle Fälle 

Bei den PCW-9512-Plus-Modellen 
kann man sich zwischen zwei Drucker¬ 
typen den richtigen heraussuchen. Ent¬ 
weder man entscheidet sich für den 
PCW 9512 Plus mit Typenraddrucker, 
oder man nimmt einen im Fachjargon 
als “Tintenpuster“ benannten Drucker. 
Tintenstrahldrucker wie der Canon 


Bubble Jet 10c fallen besonders durch 
ihr sehr gutes Schriftbild und ihre Gra¬ 
fikfähigkeit auf, die im Falle des Ty¬ 
penraddruckers nicht vorliegt. 

Mit dem zusätzlich erhältlichen Pro¬ 
grammpaket “LocoFont BJ“ kann mit 
dem Tintenstrahldrucker auch in grie¬ 
chisch und kyrillisch gedruckt werden. 
Ebenso wie der PCW 9512 sind die neu¬ 
en Modelle mit einem Schwarzweiß¬ 
monitor ausgestattet. Auch die Tastatur 
ähnelt äußerlich der des 9512ers. Im In¬ 
neren des PCWs kommt jedoch wieder 
das ältere Modell - der PCW 8512 und 
Vorgänger 8256 — wenn auch in enorm 
abgewandelter Form, zum Vorschein. 

Platz für Erweiterungen 

Besonders interessant für diejenigen, 
die sich hiermit noch nicht zufrieden¬ 
stellen lassen wollen, ist die Tatsache, 
daß bei der Entwicklung des PCWs 
schon ein Platz für ein zweites Disket¬ 
tenlaufwerk oder eine Festplatte vor¬ 
handen ist. Das spart Platz auf dem 
Schreibtisch und kommt dem Motto 


von Amstrad, dem Kunden fertige und 
leicht zu bedienende Computer zu lie¬ 
fern, wie schon bei den bisher verkauf¬ 
ten PCWs bewiesen, äußerst nahe. Als 
Diskettenlaufwerk werden die neuen 
Geräte standardmäßig mit einem 
3,5-Zoll-Laufwerk ausgeliefert. Die 
Preise für die teuren CF2- oder 
CF2DD-3- Disketten schrecken also 
vor einem Kauf dieses Systems nicht 
mehr ab. Auch für andere Erweiterun¬ 
gen soll laut Aussagen der Firma Wied¬ 
mann vorgesorgt sein. Der Expansion¬ 
sport an der Rückseite wird so vor einer 
Überlastung geschützt sein. 

Alles beim alten 

Neben dem Betriebssystem CP/M wer¬ 
den auch die neuen PCWs mit einer 
Textverarbeitung, deren Name natür¬ 
lich nur LocoScript lauten kann, ausge¬ 
liefert. Daß eine Installation an das je¬ 
weilige Modell, sprich den entspre¬ 
chenden Drucker, problemlos vonstat¬ 
ten gehen wird oder gar nicht nötig ist, 
sei nur am Rande erwähnt. 

Da - wie schon erwähnt — die neuen 
PCWs über eingebaute 3 1/2-Zoll-Lauf- 
werke verfügen, wird der Datenaus¬ 
tausch mit IBM-kompatiblen Maschi¬ 
nen wesentlich vereinfacht. Eine Soft¬ 
ware speziell für diese Rechner und das 
erweiterte CP/M-Betriebssystem wird 
sicher nicht allzu lange auf sich warten 
lassen. Auch eine neue LocoScript Ver¬ 
sion für den PCW wird den Datenaus¬ 
tausch mit LocoScript PC jetzt wesent¬ 
lich vereinfachen und in beide Richtun¬ 
gen möglich machen. 

Wie bisher soll der PCW im Bereich 
des Schreibmaschinenersatzes sowie 
der direkten coniputerunterstützten Da¬ 
tenverarbeitung angesiedelt werden. Da 
cs jedoch noch wesentlich mehr Soft¬ 
ware für CP/M gibt, sind die Schranken 
für die Einsatzmöglichkeiten dieses 
Computers sicherlich noch nicht abzu- 
schätfcen. 

Aul jeden Fall werden wir am Ball hie¬ 
ben und Ihnen in der nächsten Ausgabe 
der CPC einen Test des neuen Modells 
vorlegen können. 

Ralf Schößler-Niebergall 


Leider standen bis zum Redaktionsschluß noch kei¬ 
ne weiteren Daten zur Verfügung. Wer jedoch - vor 
dem Erscheinen der neuen CPC - schon einmal ei¬ 
nen Rück auf diese Rechner werfen möchte, kann 
dies vom 21. bis zum 26. Oktober auf der System in 
München tun. Hier werden die neuen Modelle sor¬ 
ge stellt. 

Weitere Informationen über die neuen PCWs sowie 
LocoScript 2.30 bei: 

Wiedmann Unternehmensberatung. 

Korbiniansplatz 2. 

8045 Ismaning 
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Interesse am Rollenspiel? Wir zeigen Ihnen, wie Sie Ihr eigenes Pro¬ 
gramm schreiben können 



»CPC International« 12'91/1'92 
erhalten Sie nur noch im 

Bahnhofsbuchhandel oder 
im Abonnement ab: 


CPC 


— Zum Thema Kopierschutz ha¬ 
ben wir eine sehr interessante Sa¬ 
che anzubieten. Wir erklären, wie 
der Alkatrax-Kopierschutz aufge¬ 
baut ist und stellen Ihnen ein Pro¬ 
gramm zur Verfügung, mit dem 
Sie Ihre Software wirkungsvoll 
vor Raubkopierern schützen 
können. 

— Kennen Sie noch das Porgramm 
GIGA-Cad? Für alle, die ihre mit 
diesem Programm erstellten Gra¬ 
fiken auch mit anderer Grafiksoft¬ 
ware weiterbearbeiten wollen, 
stellen wir drei Submit-Dateien 
vor, mit deren Hilfe Sie 17-kByte- 
Screens erzeugen können. 

— 100 DM für 1 kByte bekommen 
auch nächsten Monat wieder sechs 
findige Leser, die Programme wie 
Schiffe versenken, einen Vokabel¬ 
trainer oder die Umsetzung des 
Spiels Magig Rings unterhalb der 
1-kByte-Grenzc geschafft haben. 


MONOCHROM 

— Natürlich hoffen wir. Ihnen 
schon in der nächsten Ausgabe die 
ersten Schwarzweißbilder aus den 
Kreisen unserer Leserschaft vor¬ 
stellen zu können. 

pcw 

— Im Herzen des Joyce wollen wir 
auch diesen Monat wieder herum¬ 
stöbern. Diesmal nehmen wir die 
Statusmeldungen des PCW unter 
die Lupe. 

— Für Sie gespielt haben wir zwei 
Spiele. Trivial Pursuit und Scrab¬ 
ble stellen beide sehr interessante 
Umsetzungen der allseits bekann¬ 
ten Spiele dar. 

— Ein Hauch von Luxus wird Sie 
überkommen, wenn Sie die Weiter¬ 
entwicklung unseres Lexikon-Pro¬ 
gramms in Betrieb nehmen. Dies¬ 
mal wird es, wie wir hoffen, die 
endgültige Version sein. 


- Auch für die Spieler unter Ihnen 
haben wir wieder einen Leckerbis¬ 
sen anzubieten. Strategie geht bei 
dem Spiel Bounce über alles. 

— LocoScript liegt in einer neuen 
Version vor. Wir zeigen, was neu 
ist und was es mit dem Printer 
Support Pack auf sich hat. 

—Jetzt müßte auch die neue Ver¬ 
sion von MicroDesign vorliegen, 
die wir Ihnen nicht vorenthalten 
möchten. 


KURSE 


— Der zweite Teil unseres Assem¬ 
bler-Kurses wird Sie nun in die 
Feinheiten der Assembler-Pro¬ 
grammierung einweisen. 

- Der erste Entwurf steht, nun 
folgt die Umsetzung. Rollcnspiele 
werden sich auch in Zukunft in der 
CPC-Gemeinde starker Beliebt¬ 
heit erfreuen. 


Com Zu Elektronik - Michael Kürbis..91 

Crusader Software.89 

DMV.53,54,55,56,57,58,63,64, 

.65,66,67,68,119,120 


DIE INSERENTEN 


Dobbertin.115 

G + L electronic.105 

Graßhoff.91 

PD Service Lage.2 


SoftMaker.89 

Weeske.8,9 

Wiedmann.115 
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PCW 


DATA BOX 


DATABOX 

ist der preiswerte Software-Service Ihrer Zeitschrift 

DATABOX 

enthält lauffähige Programme für Ihren Einsatz 

DATABOX 

lohnt sich auf jeden Fall - Monat für Monat 


PCW 8256/8512/9512 


Im Herzen des Joyce 

Wie jeden Monat auch diesmal einige interessante 
Beispielprogramme zum Artikel 

Schluß mit dem Schreibkram 

Mit diesem Programm können Sie komfortabel 
Bankformulare ausfüllen lassen. Äußerst interessant für 
kleine Unternehmungen und Vereine mit gleichem 
Verwendungszweck 

Dreh dir einen... 

Eine gelungene Umsetzung des CPC-Spiels 
Glücksrad 


Einzelbezugspreis für DATABOX: 

PCW - 3-Zoll-Diskette 


24.- DM 

Wenn Sie Oberden DMV-Verlag bestellen, gilt folgendes: 


Inland: 

Einzelpreis 
zzgl. Versandkoslen 

24,- DM 
4,- DM 

Ausland: 

Einzelpreis 
zzgl. Versandkoslen 

24,- DM 
6,- DM 

Endpreis 

28,- DM 

Endpreis 

30,- DM 


Utilities sind überall 

Zwei nützliche kleine Helfer beim Umgang mit Ihrem 
Computer 

Statistik in Pascal 

Rund um die Statistik dreht sich das Programm 
STAUS.PAS. Neben dem lauffähigen Programm 
finden Sie im Quelltext so manch interessante Routine. 

Alles beim alten? 

Unser Kompressionsprogramm für ASCII-Dateien, das 
die Funktionsweise des Huffmann-Codings in Small-C 
verdeutlichen soll 


Zahlungshinweise: 

Am einfachsten per Vorkasse (Verrechnungsscheck) oder als Nachnahme zuzüglich der Nach¬ 
nahmegebühr. (Bei Lieferungen ins Ausland ist Nachnahme nicht möglich.) 


Bitte benutzen Sie die Bestellkarte. 

DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege 

/ 

v 

Uten-and 
Medienverlag 
















Meisterstücke der Computergrafik 


High-Speed: 

Höchsteffiziente Programmierung in Assemb¬ 
ler und intelligente Berechnungs-Routinen für 
enorme Zeitersparnis 


Mehrere separate Bildspeicher: 

Getrennte Abspeicherung von Farben und 
Bild. Verwendung der Bilder in Malprogram¬ 
men 


Mandelbrot und Juliamenge: 

Mit automatischer Glättungsfunktion 

Stufenloser vertikaler Blickwinkel: 

Wahlweise Sicht von oben, unten, schräg 
und in der Totalen einzeln und stufenlos 

einstellbar rm* 

Hs JSTi- 

Voller Bedienungskomfort: 

Auswahl komplett mit Pulldown-Menüs. 
Wahlweise Steuerung mit der Maus oder 
über die Tastatur 


Phantastische Farbmöglichkeiten: 

Farben-Mischpaletten im Auswahlmenü. 
Beliebige nachträgliche Veränderung der 
Bildfarben 

Fraktal-Generator 3D PC 
Spezialversion für Amstrad/Schneider 1512 
alle PC/XT/AT mit EGA- oder VGA-Karte 

DM 69,-* 

Fraktal-Generator 3D CPC 
3-Zoll-Diskette dm 49,-* 


DMV-Verlag - Postfach 250 ■ 3440 Eschwege 


/ / / 

D4IK 

/ /Daten- und 

Medionverla^ 



























